devtools-0.0.1: src/Devtools.hs

module Devtools (Config(..), defaultConfig, defaultMain, main, testTree) where

import Devtools.Prelude
import System.IO (putStrLn)

import qualified Devtools.Dependencies as Dependencies
import qualified Devtools.HLint        as HLint
import qualified Test.Tasty            as Tasty

newtype Config = Config
  { hlintArguments :: [String]
  }

defaultConfig :: Config
defaultConfig = Config
  { hlintArguments = []
  }

defaultMain :: IO ()
defaultMain = main defaultConfig

main :: Config -> IO ()
main config = do
  putStrLn empty
  Tasty.defaultMain $ testTree config

testTree :: Config -> Tasty.TestTree
testTree Config{..} = Tasty.testGroup "devtools"
  [ Dependencies.testTree
  , HLint.testTree hlintArguments
  ]