module Main (main) where

import           Criterion.Main
import qualified Data.ByteString.Lazy      as BSL
import           Language.Haskell.CHs.Deps

main :: IO ()
main =
    defaultMain [ env sample $ \f ->
                  bgroup "chs"
                      [ bench "getImports" $ nf getImports f ]
                ]
    where
        sample = BSL.readFile "bench/data/Sample.chs"