From 795e0fc24c02a5bdf144c6f66e6910782c427a2a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 9 Feb 2019 20:46:21 +0100 Subject: [PATCH] limit conference table size --- src/Types/Interior.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs index 57ed8a6..8a89381 100644 --- a/src/Types/Interior.hs +++ b/src/Types/Interior.hs @@ -117,8 +117,10 @@ clusterMatWithRPs ClusterFlipchart dim _ = , clusterPoints ClusterFlipchart dim ) clusterMatWithRPs ClusterConferenceTable dim@(h, w) _ = - let mw = max 4 w - mh = max 4 h + let mmw = max 4 w + mmh = max 4 h + mw = min 7 mmw + mh = min 7 mmh in ( M.fromLists $ [ replicate mw (Just ImgEmpty)