diff options
Diffstat (limited to 'hosts.hs')
-rw-r--r-- | hosts.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -65,7 +65,7 @@ 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 -> assignName' bCanon 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" -> removeName (L.pack name) hosts |
69 | 69 | ||
70 | main = do | 70 | main = do |
71 | args <- getArgs | 71 | args <- getArgs |