summaryrefslogtreecommitdiff
path: root/bustle-time.hs
blob: 52b13e65a301002e48f06349c0bcd4daaf360ceb (plain)
1
2
3
4
5
6
7
8
9
10
11
import Text.Printf

import Bustle.Noninteractive (run)
import Bustle.Stats (methodTimes, TimeInfo(..))

format :: TimeInfo -> String
format (TimeInfo interface method total ncalls mean) =
    printf " %9.4f %3d %9.4f %s.%s" total ncalls mean interface method

main :: IO ()
main = run "bustle-time" methodTimes format