module DisplayState (newDState) where import Graphics.Rendering.OpenGL import Graphics.UI.GLUT import States import qualified Data.Map as Map newDState :: MState -> DState -> DState newDState mst dst = dst