More hlinting

2025-12-21 19:27:49 +00:00
parent 2fbaa47c0b
commit 51c52ace7d
18 changed files with 41 additions and 46 deletions
@@ -57,11 +57,10 @@ placePlainPSSpot w rid plmnt shift = case plmnt ^. plType of
    f x gw = fromMaybe gw $ do
        j <- x ^. plExternalID
        return $ gw & genPmnt . at j ?~ x
-    recrPlace newplmnt w' pl =
+    recrPlace newplmnt w' =
        placeSpot
            rid
            (w' & genRooms . ix rid . rmPmnts .:~ newplmnt)
-            pl

 -- this should be tidied up
 placeSpotUsingLink ::