Remove Smoke datatype

2021-03-24 00:00:13 +01:00
parent b7ec173d0e
commit 1a91d29896
8 changed files with 7 additions and 113 deletions
@@ -39,3 +39,5 @@ makeFlamerSmoke pos w = w & clouds %~ IM.insert i theCloud
                           , _clEffect = const id
                           }

+spawnSmokeAtCursor :: World -> World
+spawnSmokeAtCursor w = makeSmokeCloud (mouseWorldPos w) w