hsyslog-5: test/Main.hs

module Main (main) where

import Test.DocTest
import System.Environment
import Data.Maybe

main :: IO ()
main = do
  distDir <- fromMaybe "dist" `fmap` lookupEnv "HASKELL_DIST_DIR"
  let hscFilesDir = distDir ++ "/build"
  doctest [ "-i" ++ hscFilesDir, "src" ]