vulkan-tutorial/extern/affection/src/Affection/Class.hs
nek0 8c037f69ce Add 'extern/affection/' from commit '9b7b1c6167b4fa516b91759ca86139ede07f231d'
git-subtree-dir: extern/affection
git-subtree-mainline: f422f94794
git-subtree-split: 9b7b1c6167
2022-07-09 20:36:04 +02:00

22 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