Refactor wall points from lists to pairs

src/Dodge/Default.hs

@@ -27,7 +27,7 @@ import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
 {- Indestructible wall.  -}
 defaultWall = Wall 
-    { _wlLine = [(0,0),(50,0)]
+    { _wlLine = ((0,0),(50,0))
     , _wlID = 0
     , _wlColor = greyN 0.6
     , _wlSeen = False
@@ -35,7 +35,7 @@ defaultWall = Wall
     }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall = Wall 
-    { _wlLine = [(0,0),(50,0)]
+    { _wlLine = ((0,0),(50,0))
     , _wlID = 0
     , _wlColor = withAlpha 0.5 aquamarine
     , _wlSeen = False
@@ -46,27 +46,27 @@ defaultCrystalWall = Wall
 Door that opens on approach.
 Pathable.  -}
 defaultAutoDoor = Door 
-    { _wlLine = [(0,0),(50,0)]
+    { _wlLine = ((0,0),(50,0))
     , _wlID = 0
     , _doorMech = id
     , _wlColor = light $ dim $ dim $ dim $ yellow
     , _wlSeen = False
     , _wlIsSeeThrough = False
     , _doorPathable = True
-    , _drPositions = DS.singleton [(0,0),(50,0)]
+    , _drPositions = DS.singleton ((0,0),(50,0))
     }
 {-
 Non-pathable door.
  -}
 defaultDoor = Door 
-    { _wlLine = [(0,0),(50,0)]
+    { _wlLine = ((0,0),(50,0))
     , _wlID = 0
     , _doorMech = id
     , _wlColor = light $ dim $ dim $ dim $ yellow
     , _wlSeen = False
     , _wlIsSeeThrough = False
     , _doorPathable = False
-    , _drPositions = DS.singleton [(0,0),(50,0)]
+    , _drPositions = DS.singleton ((0,0),(50,0))
     }
 defaultCreature :: Creature
 defaultCreature = Creature