Verified Commit 9a01fc6a authored by Camil Staps's avatar Camil Staps 🚀

More logical sorting; prevent (impossible?) overflow bug

parent 88204a1c
...@@ -119,12 +119,7 @@ compute_sums_and_sort s ...@@ -119,12 +119,7 @@ compute_sums_and_sort s
instance < Stack instance < Stack
where where
< a b < a b = fromJust a.cumulative_ticks < fromJust b.cumulative_ticks
| a.children=:[] && b.children=:[_:_]
= True
| a.children=:[_:_] && b.children=:[]
= False
= fromJust a.cumulative_ticks < fromJust b.cumulative_ticks
instance <<< Profile instance <<< Profile
where where
...@@ -189,7 +184,7 @@ where ...@@ -189,7 +184,7 @@ where
toWidth :: !Real -> String toWidth :: !Real -> String
toWidth w toWidth w
| wi==10000 | wi>=10000
= "width:100%;" = "width:100%;"
= =
{ 'w','i','d','t','h',':' { 'w','i','d','t','h',':'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment