diff --git a/src/Affection.hs b/src/Affection.hs index 48ea606..e3de186 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -80,7 +80,7 @@ withAffection AffectionConfig{..} = do -- SDL.swapInterval $= SDL.SynchronizedUpdates -- <- causes Problems with windows liftIO $ logIO Debug "Getting Time" -- print current used GL Version - version <- peerArray0 (0 :: Word8) =<< GLRaw.glGetString GLRaw.GL_VERSION + version <- peekArray0 (0 :: Word8) =<< GLRaw.glGetString GLRaw.GL_VERSION print (B.pack version) -- get current time execTime <- getTime Monotonic