vulkan-tutorial/src/Affection/StateMachine.hs

15 lines
358 B
Haskell
Raw Normal View History

2017-03-05 15:39:37 +00:00
{-# LANGUAGE MultiParamTypeClasses #-}
module Affection.StateMachine where
import Affection.Types
import qualified SDL
class StateMachine a us where
smLoad :: a -> Affection us ()
smUpdate :: a -> Double -> Affection us ()
2017-04-17 10:40:17 +00:00
smEvent :: a -> SDL.EventPayload -> Affection us ()
2017-03-05 15:39:37 +00:00
smDraw :: a -> Affection us ()
smClean :: a -> Affection us ()