sigs

4 files changed, 11 insertions, 2 deletions

diff --git a/DNSKey.hs b/DNSKey.hs
index 5c71c16..03767cf 100644
--- a/DNSKey.hs
+++ b/DNSKey.hs
@@ -5,8 +5,7 @@ import           Data.Binary.Get
 import           Data.Binary.Put
 import           Data.Bits
 import qualified Data.ByteString      as B
-import qualified Data.ByteString.Lazy as L
-import           Data.Word
+import           Data.Int
 
 -- RSA n e
 --  n = modulus
@@ -14,6 +13,7 @@ import           Data.Word
 data RSA = RSA Integer Integer
  deriving (Eq,Show)
 
+getRSA :: Int64 -> Get RSA
 getRSA len = do
     elen <- do
         tog <- get
@@ -27,6 +27,7 @@ getRSA len = do
         n = snd $ B.foldl' (\(c,a) w8 -> (c-1, a + 256^c * fromIntegral w8)) (nlen-1,0) nbs
     return $ RSA n e
 
+putRSA :: RSA -> PutM ()
 putRSA (RSA n e) = do
     if elen > 255 || elen==0
         then do
diff --git a/lib/CommandLine.hs b/lib/CommandLine.hs
index 55b77b3..ea5d6b8 100644
--- a/lib/CommandLine.hs
+++ b/lib/CommandLine.hs
@@ -286,6 +286,7 @@ vanilla flags  = ArgsStyle { parseInvocation = parse flags }
 --
 --   * default polyvariadic - Implicit polyvariadic option if no other option is specified.
 --
+fancy :: [([Char], Int)] -> [[Char]] -> [Char] -> ArgsStyle
 fancy sargspsec polyVariadicArgs defaultPoly = ArgsStyle
     { parseInvocation = parse sargspsec polyVariadicArgs defaultPoly }
  where
@@ -436,6 +437,7 @@ sortOn f =
 #endif
 #endif
 
+removeIntersection :: Ord a => [a] -> [a] -> ([a], [a])
 removeIntersection (x:xs) (y:ys)
     | x == y = removeIntersection xs ys
     | x < y  = first (x :) $ removeIntersection xs (y:ys)
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
diff --git a/lib/PEM.hs b/lib/PEM.hs
index fd2fe98..003f4ff 100644
--- a/lib/PEM.hs
+++ b/lib/PEM.hs
@@ -20,6 +20,8 @@ data PEMBlob = PEMBlob { pemType :: L.ByteString
                        }
  deriving (Eq,Show)
 
+pemParser :: Maybe L.ByteString
+             -> ScanningParser L.ByteString PEMBlob
 pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy
  where
     hdr typ = "-----BEGIN " <> typ <> "-----"