Remove more (dead) Streaming code

This commit is contained in:
2022-08-21 22:03:15 +01:00
parent cccab45650
commit c35dbf1ba8
12 changed files with 24 additions and 93 deletions
-7
View File
@@ -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
+2 -1
View File
@@ -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