commit 3c420072ab5388c2c00d15ada72aec5b061c4d4d
author Nobuaki Sukegawa <nsuke@apache.org> Sun Jan 24 04:01:27 2016 +0900
committer James E. King, III <jking@apache.org> Thu Nov 30 16:15:25 2017 -0500
tree 3e90dcfceb50956b9dfaf5a0e112e479771efcaf
parent 214746619a6e44d8b3cc7394f3303e7bdf78c442

THRIFT-3580 THeader for Haskell
Client: hs

This closes #820
This closes #1423

lib/hs/src/Thrift/Server.hs

diff --git a/lib/hs/src/Thrift/Server.hs b/lib/hs/src/Thrift/Server.hs
index ed74ceb..543f338 100644
--- a/lib/hs/src/Thrift/Server.hs
+++ b/lib/hs/src/Thrift/Server.hs
@@ -38,10 +38,10 @@
 
 -- | A threaded sever that is capable of using any Transport or Protocol
 -- instances.
-runThreadedServer :: (Transport t, Protocol i, Protocol o)
-                  => (Socket -> IO (i t, o t))
+runThreadedServer :: (Protocol i, Protocol o)
+                  => (Socket -> IO (i, o))
                   -> h
-                  -> (h -> (i t, o t) -> IO Bool)
+                  -> (h -> (i, o) -> IO Bool)
                   -> PortID
                   -> IO a
 runThreadedServer accepter hand proc_ port = do