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,15 +1,14 @@
 module Dodge.Base.CardinalPoint where
+
 import Dodge.Data.Room
 import Geometry

 cardList :: [CardinalPoint]
-cardList = [North,East,South,West]
+cardList = [North, East, South, West]

 cardVec :: CardinalPoint -> Point2
 cardVec cp = case cp of
-    North -> V2  0   1
-    South -> V2  0 (-1)
-    East -> V2   1   0
-    West -> V2 (-1)  0
-
-
+    North -> V2 0 1
+    South -> V2 0 (-1)
+    East -> V2 1 0
+    West -> V2 (-1) 0