From 0faa4c6c291e971ca1c2519fca4885a96833f2db Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 26 Mar 2016 14:03:09 +0100 Subject: [PATCH] why so complicated? --- src/Affection/Render.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ()