fix state machine

This commit is contained in:
nek0 2020-05-04 21:31:42 +02:00
parent 3b9a366830
commit fc6bfa1ca5
1 changed files with 6 additions and 6 deletions

View File

@ -7,14 +7,14 @@ import Affection.Types
import qualified SDL
-- | Typeclass for simple scaffolding of a state machine
class StateMachine a where
class StateMachine us a where
-- | State load routine
smLoad :: a -> Affection ()
smLoad :: a -> us -> Affection ()
-- | state update routine
smUpdate :: a -> Double -> Affection ()
smUpdate :: a -> us -> Double -> Affection ()
-- | State event handler routine
smEvent :: a -> [SDL.EventPayload] -> Affection ()
smEvent :: a -> us -> [SDL.EventPayload] -> Affection ()
-- | State draw routine
smDraw :: a -> Affection ()
smDraw :: a -> us -> Affection ()
-- | State clean routine
smClean :: a -> Affection ()
smClean :: a -> us -> Affection ()