add class

This commit is contained in:
nek0 2020-05-04 05:44:58 +02:00
parent 8af8193a0a
commit c8d3ad6c56

21
src/Affection/Class.hs Normal file
View file

@ -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