1 files changed, 4 insertions, 0 deletions

diff --git a/lib/Hosts.hs b/lib/Hosts.hs
index 5f09de1..0f1d9a6 100644
--- a/lib/Hosts.hs
+++ b/lib/Hosts.hs
@@ -162,6 +162,7 @@ chaddr n addr hosts =
                                   where oo = (.) . (.)
               (a,ws') = splitAt 2 ws
 
+isLonerName :: L.ByteString -> Bool
 isLonerName line = length ws' <= 2
         where (x,_) = L.break (=='#') line
               ws  = L.groupBy ( (==EQ) `oo` comparing isSpace) x
@@ -186,12 +187,15 @@ cannonizeName name line = scrubName f line
       where
         (pre,rst) = break (==name) ws
 
+removeName :: L.ByteString -> Hosts -> Hosts
 removeName name hosts = hosts'
  where
     hosts' = scrubTrailingEmpties (maybe hosts (removeName0 name hosts) ns)
     ns = Map.lookup name (namenum hosts) 
 
         
+removeName0 :: Foldable t =>
+               L.ByteString -> Hosts -> t Int -> Hosts
 removeName0 name hosts nums = hosts 
     { namenum = Map.delete name (namenum hosts)
     , numline = foldl' scrub (numline hosts) nums