Hlinting

src/Dodge/Room/Corridor.hs

@@ -3,6 +3,9 @@ module Dodge.Room.Corridor
 import Dodge.Room.Data
 import Geometry
 
+{- First exit due north, two other exits at angles next to this.
+ Entrance from south.
+ -}
 corridor :: Room
 corridor = Room
     { _rmPolys = [rectNSWE 80 0 0 40
@@ -10,15 +13,13 @@ corridor = Room
 --                 ,[(40,0), (0,0) +.+ rotateV (0-pi/3) (40,0),( 0, 0)]
                  ]
     , _rmLinks = lnks
-    , _rmPath  = concatMap (doublePair . (,) (20,60)) $ map fst lnks
+    , _rmPath  = concatMap (doublePair . (,) (20,60) . fst) lnks
     , _rmPS    = []
     , _rmBound = rectNSWE 50 30 0 40
     }
   where 
     lnks = 
         [((20,70)  ,0)
---        ,((20,80) +.+ rotateV (0-pi/3) (-10,0),  pi/6)
---        ,((20,80) +.+ rotateV (  pi/3) ( 10,0),0-pi/6)
         ,((20,70), pi/6)
         ,((20,70), 0-pi/6)
         ,((20,10)    ,pi)
@@ -39,11 +40,11 @@ corridorN = Room
 
 tEast :: Room
 tEast = Room
-    { _rmPolys = [rectNSWE 80 0  (-20) (20)
+    { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]
     , _rmLinks = lnks
-    , _rmPath  = concatMap (doublePair . (,) (0,60)) $ map fst lnks
+    , _rmPath  = concatMap (doublePair . (,) (0,60) . fst) lnks
     , _rmPS    = []
     , _rmBound = rectNSWE 70 10 0 40
     }
@@ -53,11 +54,11 @@ tEast = Room
                  ]
 tWest :: Room
 tWest = Room
-    { _rmPolys = [rectNSWE 80 0  (-20) (20)
+    { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]
     , _rmLinks = lnks
-    , _rmPath  = concatMap (doublePair . (,) (0,60)) $ map fst lnks
+    , _rmPath  = concatMap (doublePair . (,) (0,60) . fst) lnks
     , _rmPS    = []
     , _rmBound = rectNSWE 70 10 0 40
     }