obsolete cabal conditional dependency & some missing type sigs

1 files changed, 2 insertions, 1 deletions

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