haskelloids/src/StateMachine.hs
2017-12-19 17:30:44 +01:00

34 lines
552 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
module StateMachine where
import Affection
import qualified SDL
import qualified Data.Map as M
import Data.Maybe (catMaybes)
import Control.Monad (foldM, when)
import System.Random (randomRIO)
import Types
import Commons
-- import InGame
import Menu
instance StateMachine State UserData where
smLoad Menu = loadMenu
-- smLoad InGame = loadGame
smUpdate Menu = updateMenu
-- smUpdate InGame sec = updateGame sec
smDraw Menu = drawMenu
-- smDraw InGame = drawGame
smEvent _ _ = return ()