remove cruft

reflex-frp · Jan 16, 2020 · 442826d · 442826d
1 parent 6091e55
commit 442826d
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/test/RequesterT.hs b/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