Refactor wall zoning, remove streaming
This commit is contained in:
@@ -1,11 +1,8 @@
|
||||
module Dodge.Update.Cloud where
|
||||
import Dodge.Zoning.Creature
|
||||
import Dodge.Data
|
||||
import Dodge.Zone
|
||||
import Geometry.Vector3D
|
||||
import LensHelp
|
||||
import StreamingHelp
|
||||
import qualified Streaming.Prelude as S
|
||||
import Data.Foldable
|
||||
cloudPoisonDamage :: Cloud -> World -> World
|
||||
cloudPoisonDamage c w = w & dodamagesto (filter f $ crsNearPoint clpos w)
|
||||
|
||||
Reference in New Issue
Block a user