Cleanup
This commit is contained in:
@@ -120,7 +120,7 @@ placeSpotID rid ps pt w = case pt of
|
||||
PutCrit cr -> plNewUpID (gwWorld . cWorld . lWorld . creatures) crID (mvCr p rot cr) w
|
||||
PutForeground fs ->
|
||||
plNewUpID
|
||||
(gwWorld . cWorld . lWorld . foregroundShapes)
|
||||
(gwWorld . cWorld . lWorld . foreShapes)
|
||||
fsID
|
||||
(mvFS p rot fs)
|
||||
w
|
||||
|
||||
Reference in New Issue
Block a user