tests/Spec.hs


1
2
3
4
5
6
7
8
9
10
11

import Distribution.Helper
import System.Environment.Extra (lookupEnv)
import System.Posix.Env (setEnv)
import System.Process
import Data.Maybe
import Data.Functor

main :: IO ()
main = do
  flip (setEnv "HOME") True =<< fromMaybe "/tmp" <$> lookupEnv "TMPDIR"
  writeAutogenFiles readProcess "." "./dist"