Small cleanup

2025-09-23 17:17:27 +01:00
parent 60fdd138e3
commit 4074c40083
5 changed files with 4 additions and 5 deletions
@@ -48,7 +48,7 @@ placePlainPSSpot w rm plmnt shift =
  where
    f x gw = fromMaybe gw $ do
        j <- x ^. plExternalID
-        return $ gw & genPmnt . at j ?~ [x]
+        return $ gw & genPmnt . at j ?~ x
    recrPlace newplmnt w' pl =
        let (wr, newplmnts) = placeSpot (w', rm & rmPmnts .:~ newplmnt) pl
         in (wr, newplmnt : newplmnts)