Fix subsumption

tomjaguarpaw · Feb 16, 2024 · d5e1549 · d5e1549
1 parent cae5e6f
commit d5e1549
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bluefin-internal/src/Bluefin/Internal.hs b/bluefin-internal/src/Bluefin/Internal.hs
@@ -86,7 +86,7 @@ withMonadIO ::
   (forall m. (MonadIO m) => m r) ->
   -- | @MonadIO@ operation run in @Eff@
   Eff effs r
-withMonadIO = flip unEffReader
+withMonadIO io m = unEffReader m io
 
 monadIOExample :: IO ()
 monadIOExample = runEffIO $ \io -> withMonadIO io $ liftIO $ do