implemented 'delete' for hosts utility

1 files changed, 1 insertions, 1 deletions

diff --git a/hosts.hs b/hosts.hs
index 6c93b10..b73ecb3 100644
--- a/hosts.hs
+++ b/hosts.hs
@@ -65,7 +65,7 @@ grokPairing :: Bool -> Hosts -> (String,Either String SockAddr) -> Hosts
 grokPairing bCanon hosts (name,eaddr) =
     case eaddr of
         Right addr -> assignName' bCanon addr (L.pack name) hosts
-        Left "delete" -> error "deletion not implemented."
+        Left "delete" -> removeName (L.pack name) hosts
 
 main = do
     args <- getArgs