module ProgEnd (endD) where import Graphics.Rendering.OpenGL import Graphics.UI.GLUT import States endD :: MState -> KState -> Bool endD mst kst = if (downKey kst) == (Just (Char 'c')) then True else False