why so complicated?

This commit is contained in:
nek0 2016-03-26 14:03:09 +01:00
parent 2e8a31c731
commit 0faa4c6c29
1 changed files with 1 additions and 1 deletions

View File

@ -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 ()