Fix wall bug, refactor placements

src/Dodge/LevelGen/Block.hs

@@ -4,7 +4,6 @@ import Dodge.Data
 import Dodge.Data.SoundOrigin
 import Dodge.Base
 import Dodge.Zone
-import Dodge.Zone.Data
 import Dodge.SoundLogic
 import Dodge.SoundLogic.LoadSound
 import Dodge.WorldEvent.Sound

src/Dodge/LevelGen/Data.hs

@@ -1,23 +1,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.LevelGen.Data
-    ( PSType (..)
-    , PlacementSpot (..)
-    , Placement (..)
-    , sPS
-    -- lenses
-    , placementSpot
-    , psType
-    , psPos
-    , psRot
-    , putID
-    , pwPoly
-    , pwWall
-    , unPutCrit
---    , groupPlacementID
---    , groupUpdate
-    , idPlacement
-    ) where
+    where
 import Dodge.Data
 import Picture
 import Geometry.Data
@@ -44,12 +28,12 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutForeground Shape
     | PutNothing
     | PutID { _putID :: Int}
+-- maybe there is a monadic implementation of this?
 data PlacementSpot = PS
     { _psPos :: Point2
     , _psRot :: Float
     , _psType :: PSType
     }
--- maybe there is a monadic implementation of this?
 data Placement = Placement 
     { _placementSpot :: PlacementSpot
     , _idPlacement :: Int -> Maybe Placement 

src/Dodge/LevelGen/MoveDoor.hs

@@ -7,7 +7,6 @@ module Dodge.LevelGen.MoveDoor
 import Dodge.Data
 import Dodge.Base
 import Dodge.Zone
-import Dodge.Zone.Data
 import Geometry
 
 import Control.Lens