Add RequestSRT

client/src/GHC/Debug/Client/Monad/Simple.hs

@@ -29,6 +29,7 @@ import GHC.Debug.Client.Monad.Class
 import Control.Monad.Fix
 import Control.Monad.Reader
 import Data.Binary
+import Control.Monad.IO.Class()
 --import Debug.Trace
 
 
@@ -181,6 +182,4 @@ blockReq req = DebugM $ do
 
 newtype DebugM a = DebugM (ReaderT Debuggee IO a)
                    -- Only derive the instances that DebugMonad needs
-                    deriving (MonadFail, Functor, Applicative, Monad, MonadFix)
-
-
+                    deriving (MonadFail, Functor, Applicative, Monad, MonadFix, MonadIO)