From fa436b19b25a6a908a78bc6874f1adf3a70ea8a9 Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 31 Jul 2014 03:22:49 -0400 Subject: Fixed -c option to hosts utility --- hosts.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'hosts.hs') 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 -- cgit v1.2.3