top-level signatures.

2 files changed, 6 insertions, 0 deletions

diff --git a/Kademlia.hs b/Kademlia.hs
index f256366f..f2288642 100644
--- a/Kademlia.hs
+++ b/Kademlia.hs
@@ -63,11 +63,13 @@ data InsertionReporter ni = InsertionReporter
                           -> IO ()
     }
 
+quietInsertions :: InsertionReporter ni
 quietInsertions = InsertionReporter
     { reportArrival = \_ _ _ -> return ()
     , reportPingResult = \_ _ _ -> return ()
     }
 
+contramapIR :: (t -> ni) -> InsertionReporter ni -> InsertionReporter t
 contramapIR f ir = InsertionReporter
     { reportArrival = \tm ni nis -> reportArrival ir tm (f ni) (map f nis)
     , reportPingResult = \tm ni b -> reportPingResult ir tm (f ni) b
diff --git a/ToxMessage.hs b/ToxMessage.hs
index 9a896c52..41204697 100644
--- a/ToxMessage.hs
+++ b/ToxMessage.hs
@@ -48,6 +48,7 @@ instance Data Auth where
 
     dataTypeOf _ = mkDataType "ToxMessage" [con_Auth]
 
+con_Auth :: Constr
 con_Auth = mkConstr (dataTypeOf (Auth (error "con_Auth"))) "Auth" [] Prefix
 
 instance Serialize Auth where
@@ -126,6 +127,7 @@ data ImplicitAssymetric = ImplicitAssymetric
     }
  deriving (Eq, Ord,Data)
 
+getRemaining :: Get ByteString
 getRemaining = remaining >>= getBytes
 
 instance Serialize ImplicitAssymetric where
@@ -408,6 +410,7 @@ instance Serialize Packet where
     get = getPacket
     put = putPacket
 
+getPacket :: Get Packet
 getPacket = do
     typ <- get
     case pktClass typ of
@@ -434,6 +437,7 @@ getPacket = do
         NoncedUnclaimedClass toPacket _ -> toPacket <$> get <*> get
         Unclassified -> fail $ "todo: unserialize packet "++show typ
 
+putPacket :: Packet -> PutM ()
 putPacket p = do
     put $ pktKind p
     case pktClass (pktKind p) of