switchable stack simplification
commit948fe911bbdb559c2223dcf2a0fdb9546334e445
authorJames Deikun <james.deikun@obsidian.systems>
dateThu 16 Jan 2020, 18:28 (7 years ago)
parentd6a31ae
src/Reflex/Spider/Internal.hs+4−1
@@ -1453,8 +1453,11 @@ showStacks :: [[String]] -> String
14531453showStacks = drawForest . listsToForest . fmap (filterStack "Reflex.Spider.Internal")
14541454
14551455filterStack :: String -> [String] -> [String]
1456+#ifdef DEBUG_HIDE_INTERNALS
14561457filterStack prefix = filter (not . (prefix `isPrefixOf`))
1457−
1458+#else
1459+filterStack prefix = id
1460+#endif
14581461
14591462#ifdef DEBUG_CYCLES
14601463