vulkan-tutorial/extern/src/Affection/Class.hs
nek0 f422f94794 Add 'extern/' from commit '9b7b1c6167b4fa516b91759ca86139ede07f231d'
git-subtree-dir: extern
git-subtree-mainline: c84b50de5f
git-subtree-split: 9b7b1c6167
2022-07-09 20:34:38 +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