remove cruft

Author: JBetz

test/RequesterT.hs

@@ -18,7 +18,7 @@ import Control.Lens hiding (has)
 import Control.Monad
 import Control.Monad.Fail (MonadFail)
 import Control.Monad.Fix
-import Control.Monad.IO.Class (MonadIO, liftIO)
+import Control.Monad.IO.Class (MonadIO)
 import Control.Monad.Primitive
 import Data.Constraint.Extras
 import Data.Constraint.Extras.TH
@@ -249,7 +249,6 @@ testMoribundPerformEvent
   :: forall t m
    . ( Adjustable t m
      , PerformEvent t m
-     , MonadIO (Performable m)
      , MonadHold t m
      , Reflex t
      )
@@ -259,10 +258,8 @@ testMoribundPerformEvent pulse = do
   switchHold outputInitial outputReplaced
   where
     performPrint i evt =
-      let outputEvt = ((show i <> ":") <>) . show <$> evt
-      in performEvent $ ffor outputEvt $ \output ->
-        let msg = show i <> ":" <> show output
-        in return output
+      performEvent $ ffor evt $ \output ->
+        return $ show i <> ":" <> show output
 
 
 deriveArgDict ''TestRequest