bustle-count.hs


1
2
3
4
5
6
7
8
9
10

import Text.Printf

import Bustle.Noninteractive (run)
import Bustle.Stats (frequencies, TallyType, FrequencyInfo(..))

format :: FrequencyInfo -> String
format (FrequencyInfo c t i m) = printf " %4d %6s %s.%s" c (show t) i m

main :: IO ()
main = run "bustle-count" frequencies format