Add fix bug in terminal destruction effects

2022-06-07 01:25:36 +01:00
parent 1fe41889fe
commit d42538e3c0
13 changed files with 111 additions and 93 deletions
@@ -110,7 +110,7 @@ placeSpotID ps pt w = case pt of
    PutShape    sh          -> placeShape sh p rot w
    PutNothing              -> (0,w)
    PutID i                 -> (i, w)
-    PutWorldUpdate f        -> (0,w & f ps)
+    PutWorldUpdate f        -> (0, w & f ps)
    PutUsingGenParams f     ->  let (w',pt') = f w
                                in placeSpotID ps pt' w'
  where