gore-and-ash-glfw 1.1.0.0 → 1.1.1.0

raw patch · 3 files changed

+6/−3 lines, 3 files

Files

• gore-and-ash-glfw.cabal +1/−1
• src/Game/GoreAndAsh/GLFW.hs +3/−0
• src/Game/GoreAndAsh/GLFW/Module.hs +2/−2

@@ -1,5 +1,5 @@ name:                gore-and-ash-glfw-version:             1.1.0.0+version:             1.1.1.0 synopsis:            Core module for Gore&Ash engine for GLFW input events description:         Please see README.md homepage:            https://github.com/Teaspot-Studio/gore-and-ash-glfw

@@ -92,6 +92,9 @@   , ModifierKeys(..)   ) where +import Control.Monad.Catch +import Control.Wire +import Game.GoreAndAsh import Graphics.UI.GLFW  import Game.GoreAndAsh.GLFW.API 

@@ -77,11 +77,11 @@     where        readAllKeys GLFWState{..} = liftIO $ do         keys <- readAllChan glfwBufferSize glfwKeyChannel-        return $ M.fromList $ (\(k, ks, mds) -> (k, (ks, mds))) <$> keys+        return $ M.fromList $ (\(k, ks, mds) -> (k, (ks, mds))) <$> reverse keys        readAllButtons GLFWState{..} = liftIO $ do          btns <- readAllChan glfwBufferSize glfwMouseButtonChannel-        return $ M.fromList $ (\(b, bs, mds) -> (b, (bs, mds))) <$> btns +        return $ M.fromList $ (\(b, bs, mds) -> (b, (bs, mds))) <$> reverse btns         readMousePos GLFWState{..} = liftIO $         readIORef glfwMousePosChannel