add class

This commit is contained in:
nek0 2020-05-04 05:44:58 +02:00
parent 8af8193a0a
commit c8d3ad6c56
1 changed files with 21 additions and 0 deletions

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