Cleanup

src/Dodge/Room/CheckConsistency.hs

@@ -6,7 +6,7 @@ import Dodge.Graph
 linksOnPath :: Room -> Bool
 linksOnPath r = all pointOnPath linkPoints
   where
-    linkPoints = map (_rlPos) $ _rmLinks r
+    linkPoints = map _rlPos $ _rmLinks r
     pointOnPath p = elem p $ concatMap flat2 $ _rmPath r
     flat2 (x,y) = [x,y]
 

src/Dodge/Room/Room.hs

@@ -128,7 +128,7 @@ roomCenterPillar = do
     l1 <- mntLightLnkCond (resetPLUse $ rprBool $ \rp _ -> isInLnk rp)
     l2 <-
         mntLightLnkCond $
-            (resetPLUse $ rprBool $ \rp _ -> isOutLnk rp)
+            resetPLUse (rprBool $ \rp _ -> isOutLnk rp)
                 & psFallback ?~ mntLightLnkCond' (resetPLUse useUnusedLnk)
     let plmnts =
             [ blockLine (V2 115 115) (V2 115 125)

src/Dodge/Room/Tutorial.hs

@@ -213,7 +213,7 @@ tutLight = do
                 , cleatOnward corridor & rmPmnts .~ mempty
                 ]
   where
-    g = PSPos (\x _ -> f x) (\_ -> id) Nothing
+    g = PSPos (\x _ -> f x) (const id) Nothing
       where
         f x = case _rpType x of
             NotLink{} | null (x ^. rpPlacementUse . at UsedPosFloor)