obsolete cabal conditional dependency & some missing type sigs

1 files changed, 2 insertions, 0 deletions

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.