Cleanup

src/Dodge/Placement/Instance/Wall.hs

@@ -1,21 +1,23 @@
-module Dodge.Placement.Instance.Wall 
-    (invisibleWall, crystalLine, blockLine, putBlockRect
-    ,baseBlockPane
-    ,midWall
-    ,windowLine
-    ,putBlockN
-    ,putBlockV
-    ,heightWallPS
-    ,replacePutID
-    ) where
+module Dodge.Placement.Instance.Wall (
+    invisibleWall,
+    crystalLine,
+    blockLine,
+    putBlockRect,
+    baseBlockPane,
+    midWall,
+    windowLine,
+    putBlockN,
+    putBlockV,
+    heightWallPS,
+    replacePutID,
+) where
 
-import qualified Data.Set as S
-import Dodge.Material.Color
 import Control.Lens
 import Data.List
 import Dodge.Data.GenWorld
 import Dodge.Default.Wall
 import Dodge.LevelGen.PlacementHelper
+import Dodge.Material.Color
 import Dodge.Placement.Instance.Block
 import Geometry
 
@@ -95,6 +97,7 @@ crystalLine a b = sps0 $ PutLineBlock defaultCrystalWall 7 a b
 
 baseBlockPane :: Wall
 baseBlockPane = defaultWall & wlOpacity .~ Opaque 17
+
 --    & wlPathFlag .~ S.fromList [WallBlockVisibility, WallNotAutoOpen]
 
 -- TODO find home for this