From 413c74c0a728b499671547f6438b4786cbdac31c Mon Sep 17 00:00:00 2001 From: Stefan Dresselhaus Date: Tue, 15 Apr 2014 08:59:53 +0200 Subject: [PATCH] minor stuff --- src/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index 4a32161..259ff7f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -24,7 +24,9 @@ import Control.Monad.RWS.Strict (RWST, ask, asks, modify, put) import Control.Monad.Trans.Class import Control.Monad.Trans.State (evalStateT) +import Data.Functor ((<$>)) import Data.Distributive (distribute, collect) +import Data.Monoid (mappend) -- FFI import Foreign (Ptr, castPtr, with, sizeOf) @@ -200,7 +202,8 @@ main = do } putStrLn "init done." - void $ evalRWST (adjustWindow >> run) env state + uncurry mappend <$> evalRWST (adjustWindow >> run) env state + putStrLn "shutdown complete." --SDL.glDeleteContext mainGlContext --SDL.destroyRenderer renderer