@@ -18,6 +18,7 @@ import Data.Maybe (Maybe(..), fromMaybe, maybe)
1818import Data.Monoid (guard, power)
1919import Data.Newtype (over2, unwrap)
2020import Data.Number.Format as Number
21+import Data.Ord.Down (Down(..))
2122import Data.Posix.Signal (Signal(..))
2223import Data.Set (Set)
2324import Data.Set as Set
@@ -254,8 +255,8 @@ main cliRoot =
254255 allSteps <- liftEffect (Ref.read state.steps)
255256 when args.printTiming do
256257 endTime <- liftEffect now
257− timings <- Array.sortBy (comparing snd) <<< Map.toUnfoldable <$> liftEffect (Ref.read state.timings)
258− let topTimings = Array.take 20 $ Array.reverse timings
258+ timings <- Array.sortBy (comparing (Down <<< snd)) <<< Map.toUnfoldable <$> liftEffect (Ref.read state.timings)
259+ let topTimings = Array.take 20 timings
259260 Console.log $ "\nTop " <> show (Array.length topTimings) <> " slowest modules:"
260261 Console.log $ printTimings topTimings
261262 Console.log $ "\nTotal build time: " <> formatMs (timeDiff state.startTime endTime)