From 714bef562c52995087869876ab7233bfc110d59a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 16 Dec 2017 19:33:43 +0100 Subject: [PATCH] changed input of state machine --- src/Affection/StateMachine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Affection/StateMachine.hs b/src/Affection/StateMachine.hs index 067ae78..abbe3d9 100644 --- a/src/Affection/StateMachine.hs +++ b/src/Affection/StateMachine.hs @@ -9,6 +9,6 @@ import qualified SDL class StateMachine a us where smLoad :: a -> Affection us () smUpdate :: a -> Double -> Affection us () - smEvent :: a -> SDL.EventPayload -> Affection us () + smEvent :: a -> [SDL.EventPayload] -> Affection us () smDraw :: a -> Affection us () smClean :: a -> Affection us ()