diff --git a/src/Affection/Render.hs b/src/Affection/Render.hs index 8b5f9bc..744a17b 100644 --- a/src/Affection/Render.hs +++ b/src/Affection/Render.hs @@ -68,7 +68,7 @@ inRender r (TBind m f) = do result <- inRender r m inRender r (f result) -- inRender r (TLift x) = return x -inRender _ (TLiftIO x) = return =<< x +inRender _ (TLiftIO x) = x inRender r (TRender f) = f r changeColor :: RGBA -> RenderT RenderM ()