Fix poison gas

2021-08-28 19:24:15 +01:00
parent ef73964d09
commit f977742f06
6 changed files with 42 additions and 16 deletions
@@ -19,7 +19,7 @@ makeCloudAt rad t drawFunc p w = w & clouds %~ (theCloud :)
        , _clRad = rad
        , _clTimer = t
        , _clType = SmokeCloud
-        --, _clEffect = const id
+        , _clEffect = const id
        }

 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture