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