Remove more (dead) Streaming code
This commit is contained in:
@@ -24,7 +24,6 @@ import Dodge.Data.SoundOrigin
|
||||
import Geometry.Data
|
||||
import SDL (MouseButton, Scancode)
|
||||
import Sound.Data
|
||||
import StreamingHelp
|
||||
import System.Random
|
||||
|
||||
data World = World
|
||||
@@ -59,10 +58,4 @@ data WorldHammer
|
||||
| DoubleMouseHam
|
||||
deriving (Eq, Ord, Show, Read, Enum, Bounded)
|
||||
|
||||
type HitEffect' =
|
||||
Flame ->
|
||||
StreamOf (Point2, Either Creature Wall) ->
|
||||
World ->
|
||||
(World, Maybe Flame)
|
||||
|
||||
makeLenses ''World
|
||||
|
||||
@@ -1,7 +1,8 @@
|
||||
{-# LANGUAGE StrictData #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
|
||||
module Dodge.Data.Zoning where
|
||||
module Dodge.Data.Zoning
|
||||
where
|
||||
|
||||
import Control.Lens
|
||||
import qualified Data.IntSet as IS
|
||||
|
||||
Reference in New Issue
Block a user