Remove requirement for external door ids

2021-09-30 15:52:01 +01:00
parent c88f88004d
commit cb23960bd7
3 changed files with 15 additions and 16 deletions
@@ -6,5 +6,8 @@ import Dodge.LevelGen.Data
 jsps0 :: PSType -> Maybe Placement
 jsps0 pst = Just $ sPS (V2 0 0) 0 pst

+jspsJ :: PSType -> Placement -> Maybe Placement
+jspsJ pst plm = Just $ Placement (PS (V2 0 0) 0 pst) $ \_ -> Just plm
+
 place0 :: PSType -> (Int -> Maybe Placement) -> Placement
 place0 pst = Placement (PS (V2 0 0) 0 pst)