module KeyboardMouseState (setKState) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import States 


setKState :: MState -> KState -> Key -> KeyState -> Modifiers -> Position -> KState
setKState _ kst x Down _ _ = (changeKStateDownKey kst (Just x) )
setKState _ kst _ Up _ _ = (changeKStateDownKey kst Nothing )