Move logs to be ignored by git

src/Dodge/Update/Input/DebugTest.hs

@@ -18,6 +18,7 @@ import Data.Maybe
 import Dodge.Base.Collide
 import Dodge.Data.Universe
 import SDL
+import System.Directory
 
 doDebugTest :: Universe -> Universe
 --doDebugTest uv = uv & uvDebugFloat1 *~ 0.5
@@ -40,29 +41,33 @@ doDebugTest2 = uvDebugFloat1 .~ 20
 doDebugTestF6 :: Universe -> Universe
 doDebugTestF6 = uvIOEffects %~ \f u -> do
     Just ss <- decodeFileStrict "generated/saves/QuickSave"
-    writeFile "log/prettyQuickSave" ""
-    mapM_ (\s -> appendFile "log/prettyQuickSave" (s ++ "\n")) $ prettyShort (ss :: CWorld)
-    putStrLn "log/prettyQuickSave written"
+    createDirectoryIfMissing True "generated/log"
+    writeFile "generated/log/prettyQuickSave" ""
+    mapM_ (\s -> appendFile "generated/log/prettyQuickSave" (s ++ "\n")) 
+        $ prettyShort (ss :: CWorld)
+    putStrLn "generated/log/prettyQuickSave written"
     f u
 
 doDebugTestF7 :: Universe -> Universe
 doDebugTestF7 = uvIOEffects %~ \f u -> do
-    l <- readFile "log/heldL"
-    r <- readFile "log/heldR"
+    l <- readFile "generated/log/heldL"
+    r <- readFile "generated/log/heldR"
     f $ u
         & uvWorld . input . heldWorldPos . at ButtonLeft .~ read l
         & uvWorld . input . heldWorldPos . at ButtonRight .~ read r
         
 doDebugTestF8 :: Universe -> Universe
 doDebugTestF8 = uvIOEffects %~ \f u -> do
-    appendFile "log/proj" $ show 
+    createDirectoryIfMissing True "generated/log"
+    appendFile "generated/log/proj" $ show 
         (u ^?! uvWorld . cWorld . lWorld . projectiles . ix 5 . pjPos) ++ "/n"
-    putStrLn "log/proj written"
+    putStrLn "generated/log/proj written"
     f u
 doDebugTestF10 :: Universe -> Universe
 doDebugTestF10 = uvIOEffects %~ \f u -> do
-    writeFile "log/proj" ""
-    putStrLn "log/proj cleared"
+    createDirectoryIfMissing True "generated/log"
+    writeFile "generated/log/proj" ""
+    putStrLn "generated/log/proj cleared"
     f u
 doDebugTestF11 :: Universe -> Universe
 doDebugTestF11 = uvIOEffects %~ \f u -> do