From 2eb2f12d24c40b7287ba1bf9ce5d6ed597c97eb4 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 14 Feb 2018 01:00:19 +0100
Subject: [PATCH] tinkering around

---
 src/Floorplan.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Floorplan.hs b/src/Floorplan.hs
index f2d974c..03e08b7 100644
--- a/src/Floorplan.hs
+++ b/src/Floorplan.hs
@@ -95,7 +95,7 @@ placeHalls rng fc input =
                 (nw, g3)    = randomR (2, wmax) g2
                 (nbs, nmat) = buildHall cross nw b amat
             in
-              if hallRatio nmat < 0.5 && wmax - 1 > 2
+              if hallRatio nmat < 0.4 && wmax - 1 > 2
               then doHalls g3 nbs (row, col) (wmax -1) nmat
               else (g3, nmat)
             ) (rand, mat) bounds