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
instance < Stack
where
< a b
| a.children=:[] && b.children=:[_:_]
= True
| a.children=:[_:_] && b.children=:[]
= False
= fromJust a.cumulative_ticks < fromJust b.cumulative_ticks
< a b = fromJust a.cumulative_ticks < fromJust b.cumulative_ticks
instance <<< Profile
where
......@@ -189,7 +184,7 @@ where
toWidth :: !Real -> String
toWidth w
| wi==10000
| wi>=10000
= "width:100%;"
=
{ '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