Add missing file, workaround for placement positions bug

2022-03-08 07:59:36 +00:00
parent 79b5241c32
commit 59e6f433ff
16 changed files with 67 additions and 86 deletions
@@ -10,6 +10,7 @@ import System.Random
 setDirPS :: Float -> PlacementSpot -> PlacementSpot
 setDirPS a ps = case ps of
    PS p _ -> PS p a
+    PSNoShiftCont p _ -> PS p a
    PSPos f re fb -> PSPos (\rp r -> fmap (first (setDirPS a)) (f rp r)) re fb
    PSRoomRand i f -> PSRoomRand i (fmap (setDirPS a) f)