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


setKState :: DState -> Key ->KeyState -> Modifiers -> Position -> KState
setKState _ _ Down _ _ = (KState True)
setKState _ _ _ _ _ = (KState True)