git.iko.soy/reflex
on develop help sign in
switchable stack simplification
948fe91James Deikun
src/Reflex/Spider/Internal.hs+4−1
compare with develop
unifiedsplit
@@ -1453,8 +1453,11 @@ showStacks :: [[String]] -> String
1453showStacks = drawForest . listsToForest . fmap (filterStack "Reflex.Spider.Internal")
1453showStacks = drawForest . listsToForest . fmap (filterStack "Reflex.Spider.Internal")
1454
1454
1455filterStack :: String -> [String] -> [String]
1455filterStack :: String -> [String] -> [String]
1456+#ifdef DEBUG_HIDE_INTERNALS
1456filterStack prefix = filter (not . (prefix `isPrefixOf`))
1457filterStack prefix = filter (not . (prefix `isPrefixOf`))
1457−
1458+#else
1459+filterStack prefix = id
1460+#endif
1458
1461
1459#ifdef DEBUG_CYCLES
1462#ifdef DEBUG_CYCLES
1460
1463