nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

why so complicated?

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Affection/Render.hs
View file

@ -68,7 +68,7 @@ inRender r (TBind m f) = do
result <- inRender r m result <- inRender r m
inRender r (f result) inRender r (f result)
-- inRender r (TLift x) = return x -- inRender r (TLift x) = return x
inRender _ (TLiftIO x) = return =<< x inRender _ (TLiftIO x) = x
inRender r (TRender f) = f r inRender r (TRender f) = f r
changeColor :: RGBA -> RenderT RenderM () changeColor :: RGBA -> RenderT RenderM ()