justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Update stack lts

Browse Source
This commit is contained in:
justin
2024-10-22 10:07:13 +01:00
parent f6e32ff6ef
commit e2330618f2
24 changed files with 222 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Placement/PlaceSpot.hs
+1 -1
View File
@@ -84,7 +84,7 @@ placeSpotRoomRand ::
GenWorld ->
((GenWorld, Room), [Placement])
placeSpotRoomRand rm i f plmnt w =
let (ps, g) = runState (_rmRandPSs rm !! i) $_randGen (_gwWorld w)
let (ps, g) = runState (_rmRandPSs rm !! i) $ w ^. gwWorld . randGen
in placeSpot (w & gwWorld . randGen .~ g, rm) (plmnt & plSpot .~ f ps)
placeSpotID :: PlacementSpot -> PSType -> GenWorld -> (Int, GenWorld)