removed some print-foo

This commit is contained in:
Nicole Dresselhaus 2014-05-11 12:38:39 +02:00
parent 91e6435c9a
commit d1adff31d5
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80

View File

@ -86,11 +86,8 @@ main =
initRendering initRendering
--generate map vertices --generate map vertices
glMap' <- initMapShader 4 =<< getMapBufferObject glMap' <- initMapShader 4 =<< getMapBufferObject
print window'
eventQueue <- newTQueueIO :: IO (TQueue SDL.Event) eventQueue <- newTQueueIO :: IO (TQueue SDL.Event)
putStrLn "foo"
now <- getCurrentTime now <- getCurrentTime
putStrLn "foo"
--font <- TTF.openFont "fonts/ttf-04B_03B_/04B_03B_.TTF" 10 --font <- TTF.openFont "fonts/ttf-04B_03B_/04B_03B_.TTF" 10
--TTF.setFontStyle font TTFNormal --TTF.setFontStyle font TTFNormal
--TTF.setFontHinting font TTFHNormal --TTF.setFontHinting font TTFHNormal