Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor stuff

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-04-15 08:59:53 +02:00
parent 7b54ec9006
commit 413c74c0a7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

@ -24,7 +24,9 @@ import Control.Monad.RWS.Strict (RWST, ask, asks,
modify, put) modify, put)
import Control.Monad.Trans.Class import Control.Monad.Trans.Class
import Control.Monad.Trans.State (evalStateT) import Control.Monad.Trans.State (evalStateT)
import Data.Functor ((<$>))
import Data.Distributive (distribute, collect) import Data.Distributive (distribute, collect)
import Data.Monoid (mappend)
-- FFI -- FFI
import Foreign (Ptr, castPtr, with, sizeOf) import Foreign (Ptr, castPtr, with, sizeOf)
@ -200,7 +202,8 @@ main = do
} }
putStrLn "init done." putStrLn "init done."
void $ evalRWST (adjustWindow >> run) env state uncurry mappend <$> evalRWST (adjustWindow >> run) env state
putStrLn "shutdown complete."
--SDL.glDeleteContext mainGlContext --SDL.glDeleteContext mainGlContext
--SDL.destroyRenderer renderer --SDL.destroyRenderer renderer