nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix state machine

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Affection/StateMachine.hs
View file

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