just a little tweak

src/Floorplan.hs

@@ -13,7 +13,7 @@ import Debug.Trace
 
 data TileState
   = Wall
-  | Wind
+  -- | Wind
   | Door
   | Hall
   | Offi
@@ -25,7 +25,7 @@ data TileState
 
 instance Show TileState where
   show Wall = "#"
-  show Wind = "~"
+  -- show Wind = "~"
   show Door = "+"
   show Hall = "_"
   show Offi = "."
@@ -96,7 +96,7 @@ placeHalls rng fc input =
             (nw, g3)    = randomR (2, wmax) g2
             (nbs, nmat) = buildHall cross nw b amat
         in
-          if hallRatio nmat < 0.175 && wmax - 1 > 2
+          if hallRatio nmat < 0.2 && wmax - 1 > 2
           then doHalls g3 nbs (row, col) (wmax -1) nmat
           else (g3, nmat)
         ) (rand, mat) bounds