owen-request-wip

reflex-frp · Apr 7, 2020 · b0939d5 · b0939d5
1 parent f8403b6
commit b0939d5
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/reflex.cabal b/reflex.cabal
@@ -1,5 +1,5 @@
 Name: reflex
-Version: 0.7.0.0
+Version: 0.6.9.9
 Synopsis: Higher-order Functional Reactive Programming
 Description: Reflex is a high-performance, deterministic, higher-order Functional Reactive Programming system
 License: BSD3

diff --git a/test/RequesterT.hs b/test/RequesterT.hs
@@ -17,7 +17,7 @@ import Control.Lens hiding (has)
 import Control.Monad
 import Control.Monad.Fail (MonadFail)
 import Control.Monad.Fix
-import Control.Monad.IO.Class (MonadIO)
+import Control.Monad.IO.Class (liftIO, MonadIO)
 import Control.Monad.Primitive
 import Data.Constraint.Extras
 import Data.Constraint.Extras.TH
@@ -261,6 +261,7 @@ testMoribundPerformEvent
    . ( Adjustable t m
      , PerformEvent t m
      , MonadHold t m
+     , MonadIO (Performable m)
      , Reflex t
      )
   => Event t Int -> m (Event t String)
@@ -269,8 +270,10 @@ testMoribundPerformEvent pulse = do
   switchHold outputInitial outputReplaced
   where
     performPrint i evt =
-      performEvent $ ffor evt $ \output ->
-        return $ show i <> ":" <> show output
+      performEvent $ ffor evt $ \output -> do
+        let msg = show i <> ":" <> show output
+        liftIO $ putStrLn msg
+        return msg
 
 
 deriveArgDict ''TestRequest