Delete cruft, add Reader monad to some internal ai

2021-05-16 21:42:11 +02:00
parent 0798cc0b0e
commit d7fcdbf550
69 changed files with 721 additions and 2894 deletions
@@ -24,7 +24,7 @@ import Music
 import Control.Concurrent
 import Control.Lens
 import Foreign (Word32)
-import Control.Monad (when,void)
+import Control.Monad
 import System.Random
 import qualified Data.Map                  as M
 import qualified Data.IntMap               as IM
@@ -82,7 +82,7 @@ doPreload = do
 checkForGlErrors :: IO ()
 checkForGlErrors = do
    errs <- errors
-    when (length errs > 0) $ putStrLn $ "GLerror during doLoop: " ++ unwords (map show errs)
+    unless (null errs) $ putStrLn $ "GLerror during doLoop: " ++ unwords (map show errs)

 setWindowSize :: Int -> Int -> KeyConfigSDL-> World -> World
 setWindowSize x y z w = w