nek0
58fd609095
git-subtree-dir: extern/affection git-subtree-mainline:9e89962af0
git-subtree-split:fc6bfa1ca5
21 lines
381 B
Haskell
21 lines
381 B
Haskell
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
|