Add exports

src/Dodge/Room/Pillar.hs

@@ -1,4 +1,9 @@
-module Dodge.Room.Pillar where
+module Dodge.Room.Pillar (
+    blockPillar,
+    roomPillars,
+    roomPillarsSquare,
+    roomPillarsPassage,
+) where
 
 import qualified Data.Set as S
 import Dodge.Cleat
@@ -32,14 +37,14 @@ blockPillar w' h' =
 smallPillar :: PSType
 smallPillar = PutBlock defaultBlock baseBlockPane $ reverse $ square 5
 
-crossPillar :: Float -> Float -> Placement
-crossPillar w' h' =
-    ps0jPushPS (aline (V2 (- w) 0) (V2 w 0)) $
-        sps0 (aline (V2 0 (- h)) (V2 0 h))
-  where
-    w = w' - 9
-    h = h' - 9
-    aline = PutLineBlock baseBlockPane 9
+--crossPillar :: Float -> Float -> Placement
+--crossPillar w' h' =
+--    ps0jPushPS (aline (V2 (- w) 0) (V2 w 0)) $
+--        sps0 (aline (V2 0 (- h)) (V2 0 h))
+--  where
+--    w = w' - 9
+--    h = h' - 9
+--    aline = PutLineBlock baseBlockPane 9
 
 roomPillarsSquare :: RandomGen g => State g Room
 roomPillarsSquare = do