From e22bb26ad210bc46c211df917763bbc1a6518fa9 Mon Sep 17 00:00:00 2001
From: Andy Gill <andygill@ittc.ku.edu>
Date: Mon, 25 Jan 2016 11:08:41 -0600
Subject: [PATCH] Fixing #40 in a more direct way

---
 src/HERMIT/GHCI/Client.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/HERMIT/GHCI/Client.hs b/src/HERMIT/GHCI/Client.hs
index 51775ea..aece690 100644
--- 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