diff options
author | joe <joe@jerkface.net> | 2014-07-31 15:30:53 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-07-31 15:30:53 -0400 |
commit | 4891dd8cd8d2227158dc81a437865283305f82ac (patch) | |
tree | 113a911cb13c505dc687b1a425fa6410e6722be9 /hosts.hs | |
parent | fa436b19b25a6a908a78bc6874f1adf3a70ea8a9 (diff) |
implemented 'delete' for hosts utility
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 |