From 4891dd8cd8d2227158dc81a437865283305f82ac Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 31 Jul 2014 15:30:53 -0400
Subject: implemented 'delete' for hosts utility

---
 hosts.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hosts.hs')

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
-- 
cgit v1.2.3