Commit before tweaking placementn/room generation
This commit is contained in:
@@ -176,10 +176,10 @@ filterSectionsPair infocus filtfn itms s mfilt = (x, itms')
|
||||
white
|
||||
0
|
||||
Nothing
|
||||
f y
|
||||
| null y =
|
||||
IM.singleton 0 $ SelItem ["(NONE)"] 1 (length s) True (greyN 0.5) 0 Nothing
|
||||
| otherwise = y
|
||||
f y = y
|
||||
-- | null y =
|
||||
-- IM.singleton 0 $ SelItem ["(NONE)"] 1 (length s) True (greyN 0.5) 0 Nothing
|
||||
-- | otherwise = y
|
||||
itms' = f $ maybe id (IM.filter . filtfn) mfilt itms
|
||||
numfiltitems = show (length itms - length itms') ++ " FILTERED"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user