Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,24 +1,29 @@
 module Dodge.Default.Block where
-import Dodge.Data
+
 import Dodge.Block.Debris
+import Dodge.Data.Block
 import LensHelp

 defaultBlock :: Block
-defaultBlock = Block
-    { _blID = 0
-    , _blWallIDs = mempty
-    , _blHP = 1000
-    , _blShadows = []
-    , _blFootprint = []
-    , _blPos       = 0
-    , _blDir       = 0
-    , _blDraw      = const mempty
-    , _blDeath     = makeBlockDebris
-    , _blObstructs = []
-<<<<<<< HEAD
-=======
-    , _blPaths      = []
->>>>>>> efficientRuntime
-    }
+defaultBlock =
+    Block
+        { _blID = 0
+        , _blWallIDs = mempty
+        , _blHP = 1000
+        , _blShadows = []
+        , _blFootprint = []
+        , _blPos = 0
+        , _blDir = 0
+        , _blDraw = const mempty
+        , _blDeath = makeBlockDebris
+        , _blObstructs =
+            []
+                <<<<<<< HEAD
+                =======
+        , _blPaths =
+            []
+                >>>>>>> efficientRuntime
+        }
+
 defaultDirtBlock :: Block
 defaultDirtBlock = defaultBlock & blHP .~ 50