main :: IO ()
main = do
  !tinyBin  <- BS.readFile tinyPath
  !largeBin <- BS.readFile largePath

  defaultMain
    [ bench "read/tiny"  $ nf decoder tinyBin
    , bench "read/large" $ nf decoder largeBin
    ]
main :: IO ()
main = do
  !tinyBin  <- BS.readFile tinyPath
  !largeBin <- BS.readFile largePath

  defaultMain
    [ bench "read/tiny"  $ nf decoder tinyBin
    , bench "read/large" $ nf decoder largeBin
    ]
main = do
  !tinyBin  <- BS.readFile tinyPath
  !largeBin <- BS.readFile largePath

  defaultMain
    [ bench "read/tiny"  $ nf decoder tinyBin
    , bench "read/large" $ nf decoder largeBin
    ]