diff --git a/src/Affection/Class.hs b/src/Affection/Class.hs new file mode 100644 index 0000000..bb09229 --- /dev/null +++ b/src/Affection/Class.hs @@ -0,0 +1,21 @@ +module Affection.Class where + +import qualified SDL + +import Affection.Types as A + +class Affectionate a where + + loadState :: IO a + + preLoop :: a -> Affection () + + handleEvents :: a -> [SDL.EventPayload] -> Affection () + + update :: a -> Double -> Affection () + + draw :: a -> Affection () + + cleanUp :: a -> IO () + + hasNextStep :: a -> Affection Bool