Fixed -c option to hosts utility

1 files changed, 1 insertions, 3 deletions

diff --git a/hosts.hs b/hosts.hs
index afd60fc..6c93b10 100644
--- a/hosts.hs
+++ b/hosts.hs
@@ -64,10 +64,8 @@ crap strs = do
 grokPairing :: Bool -> Hosts -> (String,Either String SockAddr) -> Hosts
 grokPairing bCanon hosts (name,eaddr) =
     case eaddr of
-        Right addr -> assign addr (L.pack name) hosts
+        Right addr -> assignName' bCanon addr (L.pack name) hosts
         Left "delete" -> error "deletion not implemented."
- where
-    assign = if bCanon then assignNewName else assignName
 
 main = do
     args <- getArgs