Simplify item placement during generation

2021-04-25 13:21:24 +02:00
parent 30736997c3
commit 17986651c5
13 changed files with 95 additions and 95 deletions
@@ -212,7 +212,7 @@ shufflePlacements r = do
    return $ r & rmPS .~ newPSs

 putDefaultFlIt :: Item -> PSType
-putDefaultFlIt itm = PutFlIt $ defaultFlIt { _flItRot = 0, _flIt = itm }
+putDefaultFlIt itm = PutFlIt itm

 testRoom :: RandomGen g => State g Room
 testRoom = do