type signatures to help debugging builds

1 files changed, 11 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 8ca6e5d..2a4dde2 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -68,6 +68,7 @@ import qualified DNSKey as DNS
 import Data.Time.Clock.POSIX ( posixSecondsToUTCTime )
 import Kiki
 import Debug.Trace
+import Network.Socket (SockAddr)
 
 -- {-# ANN module ("HLint: ignore Eta reduce"::String) #-}
 -- {-# ANN module ("HLint: ignore Use camelCase"::String) #-}
@@ -1503,6 +1504,13 @@ kiki "tar" args = do
         ["-A":_] -> putStrLn "unimplemented." -- import tar file?
         _ -> kiki "tar" ["--help"]
 
+
+tarContent :: KeyRingRuntime
+           -> Maybe String
+           -> ([Char8.ByteString] -> SockAddr -> Packet -> [Packet] -> t )
+           -> ([(KeyRing.KeyKey, Packet, [Packet])] -> t)
+           -> (Packet -> t)
+           -> [(String, t)]
 tarContent rt spec pubpem knownhosts secpem = ipsecs ++ sshs ++ secrets "root"
  where
     ipsecs = do
@@ -1580,6 +1588,7 @@ tarC (sargs,margs) = do
         L.putStr tarbs
       err -> putStrLn $ errorString err
  where
+    build_ipsec :: Num n => b -> c -> Packet -> d -> (n, Either a Char8.ByteString)
     build_ipsec ns addr ipsec sigs
        = ( fromIntegral $ timestamp ipsec
          , Right $ Char8.pack $ fromJust $ pemFromPacket ipsec)
@@ -1590,9 +1599,11 @@ tarC (sargs,margs) = do
             ns = onames ++ others
             (_,(onames,others)) = getHostnames $ rtKeyDB rt Map.! kk
 
+    build_secret :: Num t => KeyRingRuntime  -> Packet -> (t, Either (IO (Maybe Char8.ByteString)) b)
     build_secret rt k = ( fromIntegral $ timestamp k
                         , Left $ fmap Char8.pack . (>>= secretPemFromPacket) <$> decrypt rt k )
 
+    mktar :: FilePath -> Tar.EpochTime -> L.ByteString -> Either String Tar.Entry
     mktar n epoch_time_int64 bs = do
         torpath <- Tar.toTarPath False n
         Right $ (Tar.fileEntry torpath bs) { Tar.entryTime = epoch_time_int64 }
@@ -1606,7 +1617,6 @@ tarC (sargs,margs) = do
             _ -> do
                 hPutStrLn stderr $ "Failed to decrypt "++fingerprint k++"."
                 return Nothing
-
 -- |
 --
 -- no leading hyphen, returns Right (input string).