More hlinting

2025-12-21 19:27:49 +00:00
parent 2fbaa47c0b
commit 51c52ace7d
18 changed files with 41 additions and 46 deletions
@@ -111,7 +111,7 @@ rezBoxesWpCrit = do
        treeFromTrunk [rezBox thecol, door] $
            Node centralRoom (rezrooms ++ [onwardpassage])
  where
-    adddoor rm = treeFromPost [door & rmConnectsTo .~ S.member (OnEdge North)] rm
+    adddoor = treeFromPost [door & rmConnectsTo .~ S.member (OnEdge North)]

 crAdd :: Room -> Room
 crAdd = rmPmnts .:~ sPS (V2 20 10) (0.5 * pi) randC1