Move toward better info display during level generation

src/Dodge/Layout/Tree/Shift.hs

@@ -24,14 +24,14 @@ shiftRoomTreeSearchAll
     -> [[Room]]
 shiftRoomTreeSearchAll _ Empty = [[]]
 shiftRoomTreeSearchAll bs (Node r ts :<| tseq)
-    | roomIsClipping = [] -- this is called too often--might get memoized?
-    | otherwise = case ts of
-        [] -> (r :) <$> shiftRoomTreeSearchAll newBounds tseq
-        (s:ss) -> concatMap (\l -> shiftRoomTreeSearchAll bs (Node (useLink l) ss <| (tseq |> f l s))) ls
---    = case ts of
---        [] | roomIsClipping -> []
+--    | roomIsClipping = [] -- this is called too often--might get memoized?
+--    | otherwise = case ts of
 --        [] -> (r :) <$> shiftRoomTreeSearchAll newBounds tseq
 --        (s:ss) -> concatMap (\l -> shiftRoomTreeSearchAll bs (Node (useLink l) ss <| (tseq |> f l s))) ls
+    = case ts of
+        [] | roomIsClipping -> []
+        [] -> (r :) <$> shiftRoomTreeSearchAll newBounds tseq
+        (s:ss) -> concatMap (\l -> shiftRoomTreeSearchAll bs (Node (useLink l) ss <| (tseq |> f l s))) ls
   where
     convexBounds = map pointsToPoly $ _rmBound r
     ls = init $ _rmLinks r