Fixing #40 in a more direct way

ku-fpg · Jan 25, 2016 · e22bb26 · e22bb26
1 parent 1e40d25
commit e22bb26
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/HERMIT/GHCI/Client.hs b/src/HERMIT/GHCI/Client.hs
@@ -30,10 +30,9 @@ import Data.Vector (toList)
 
 session :: JSONRPC.Session
 session = JSONRPC.session
-        $ (if debug 
-           then traceSessionAPI "HERMIT-remote-json"
-           else id :: (forall a . f a -> g a) -> (forall a . f a -> g a))
-        $ sendr
+        $ if debug 
+          then traceSessionAPI "HERMIT-remote-json" sendr
+          else sendr
  where
         sendr :: SessionAPI a -> IO a
         sendr (Sync v) =  do