From b43dbe0455cc4e8f294e2f8f515f53bfb0f27f9b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 17 Feb 2018 00:06:33 +0100
Subject: [PATCH] just a little tweak

---
 src/Floorplan.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Floorplan.hs b/src/Floorplan.hs
index 00d2a02..af4deb6 100644
--- a/src/Floorplan.hs
+++ b/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