diff options
Diffstat (limited to 'hosts.hs')
-rw-r--r-- | hosts.hs | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -64,10 +64,8 @@ crap strs = do | |||
64 | grokPairing :: Bool -> Hosts -> (String,Either String SockAddr) -> Hosts | 64 | grokPairing :: Bool -> Hosts -> (String,Either String SockAddr) -> Hosts |
65 | grokPairing bCanon hosts (name,eaddr) = | 65 | grokPairing bCanon hosts (name,eaddr) = |
66 | case eaddr of | 66 | case eaddr of |
67 | Right addr -> assign addr (L.pack name) hosts | 67 | Right addr -> assignName' bCanon addr (L.pack name) hosts |
68 | Left "delete" -> error "deletion not implemented." | 68 | Left "delete" -> error "deletion not implemented." |
69 | where | ||
70 | assign = if bCanon then assignNewName else assignName | ||
71 | 69 | ||
72 | main = do | 70 | main = do |
73 | args <- getArgs | 71 | args <- getArgs |