back to old ecstasy

cabal.project

@@ -1,4 +1,3 @@
 packages:
   ./
-  ../ecstasy/
 profiling: True

src/Main.hs

@@ -4,7 +4,6 @@ module Main where
 import Affection as A
 
 import Data.Ecstasy
-import Data.Ecstasy.Types
 
 import qualified SDL
 
@@ -63,7 +62,7 @@ pre = do
   _ <- partSubscribe k toggleFullScreen
   _ <- partSubscribe k quitGame
   u <- partSubscribe j cacheJoypad
-  (ws, _) <- yieldSystemT (SystemState 0 defStorage defHooks) (return ())
+  (ws, _) <- yieldSystemT (0, defStorage) (return ())
   putAffection ud
     { threadContext = Just threadCtx
     , window     = Just (drawWindow ad)
@@ -85,7 +84,7 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
       mapM_ (partUnSubscribe j) (uuid ud)
       mapM_ (partUnSubscribe t) (uuid ud)
       SDL.glMakeCurrent (drawWindow ad) (glContext ad)
-      (ws, _) <- yieldSystemT (SystemState 0 defStorage defHooks) (return ())
+      (ws, _) <- yieldSystemT (0, defStorage) (return ())
       putAffection ud
         { worldState = ws
         , state = Load