Cleanup

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)