type signatures

1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 6f834c25..df2945d6 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -63,6 +63,7 @@ import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Set (Set, (\\) )
 import qualified Data.Set as Set
+import Data.String ( IsString(..) )
 import qualified System.Random 
 import Data.Void (Void)
 import System.Endian (toBE32)
@@ -191,6 +192,10 @@ data XMPPServerParameters =
     }
 
 
+enableClientHacks ::
+    forall t a.
+    (Eq a, IsString a) =>
+    a -> t -> TChan Stanza -> IO ()
 enableClientHacks "Pidgin" version replyto = do
     wlog "Enabling hack SimulatedChatErrors for client Pidgin"
     donevar <- atomically newEmptyTMVar