Refactor vault room

2021-10-01 00:48:19 +01:00
parent 1414d08d88
commit 4b5a75f4af
5 changed files with 59 additions and 41 deletions
@@ -6,6 +6,9 @@ import Dodge.LevelGen.Data
 jsps0 :: PSType -> Maybe Placement
 jsps0 pst = Just $ sPS (V2 0 0) 0 pst

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