obsolete cabal conditional dependency & some missing type sigs

4 files changed, 8 insertions, 4 deletions

diff --git a/dht-client.cabal b/dht-client.cabal
index 36b9b4f7..0c9b4e3c 100644
--- a/dht-client.cabal
+++ b/dht-client.cabal
@@ -175,9 +175,7 @@ library
     build-depends: bytestring >= 0.9, bytestring-builder
   else
     build-depends: bytestring >= 0.10
-  if impl(ghc < 7.6)
-    build-depends:     ghc-prim
-  ghc-options:         -fdefer-typed-holes
+  ghc-options:         -fwarn-missing-signatures -fdefer-typed-holes
   ghc-prof-options:
 
 
diff --git a/src/Network/BitTorrent/DHT/ContactInfo.hs b/src/Network/BitTorrent/DHT/ContactInfo.hs
index 89c2ec17..c8187772 100644
--- a/src/Network/BitTorrent/DHT/ContactInfo.hs
+++ b/src/Network/BitTorrent/DHT/ContactInfo.hs
@@ -181,6 +181,7 @@ swarmInsert new old = SwarmData
  where
     newerTimeStamp newtime oldtime = if newtime > oldtime then newtime else oldtime
 
+isSwarmOccupied :: SwarmData -> Bool
 isSwarmOccupied SwarmData{..} = not $ PSQ.null peers
 
 -- | Empty store.
@@ -207,6 +208,7 @@ instance Serialize PeerStore where
 lookup :: InfoHash -> PeerStore -> [PeerAddr]
 lookup ih (PeerStore m) = maybe [] (PSQ.keys . peers) $ HM.lookup ih m
 
+batchSize :: Int
 batchSize = 64
 
 -- | Used in 'get_peers' DHT queries.
diff --git a/src/Network/Kademlia/Search.hs b/src/Network/Kademlia/Search.hs
index 71107fbd..770d2f13 100644
--- a/src/Network/Kademlia/Search.hs
+++ b/src/Network/Kademlia/Search.hs
@@ -18,6 +18,7 @@ import qualified Data.Map.Strict     as Map
 import Data.Maybe
 import qualified Data.Set            as Set
          ;import Data.Set            (Set)
+import Data.Hashable                 (Hashable(..)) -- for type sigs
 import System.IO
 import System.IO.Error
 
@@ -173,6 +174,8 @@ search sch buckets target result = do
     fork $ searchLoop sch target result st
     return st
 
+searchLoop :: ( Ord addr, Ord nid, Ord ni, Show nid, Hashable nid, Hashable ni )
+           => Search nid addr tok ni r -> nid -> (r -> STM Bool) -> SearchState nid addr tok ni r -> IO ()
 searchLoop sch@Search{..} target result s@SearchState{..} = do
     myThreadId >>= flip labelThread ("search."++show target)
     withTaskGroup ("search.g."++show target) searchAlpha $ \g -> fix $ \again -> do
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 089a991d..8a45ba64 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -20,6 +20,7 @@ import Data.Word
 import GHC.Conc (unsafeIOToSTM)
 
 -- util, todo: move to another module
+maybeToEither :: Maybe b -> Either String b
 maybeToEither (Just x) = Right x
 maybeToEither Nothing  = Left "maybeToEither"
 
@@ -201,5 +202,5 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do
                                     _ -> error "unreachable-last2Bytes"
         dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3 
 
-
+cryptoDefaultHooks :: Map.Map MessageType [NetCryptoHook]
 cryptoDefaultHooks = Map.empty