diff options
| author | Yuji Yamamoto <whosekiteneverfly@gmail.com> | 2017-07-04 05:37:58 +0900 |
|---|---|---|
| committer | Alex Biehl <alexbiehl@gmail.com> | 2017-07-03 22:37:58 +0200 |
| commit | 58edf9f5757daadeeaa7879785c48363fa154996 (patch) | |
| tree | f09972ba98497c06dccea65f513877efb10ba848 /haddock-test/src/Test/Haddock/Config.hs | |
| parent | a330da5297106ff214cbb5e74965d9d1ef9dab7b (diff) | |
Fix test failures on Windows (#564)
* Ignore .stack-work
* Fix for windows: use nul instead of /dev/null
* Fix for windows: canonicalize line separator
* Also normalize osx line endings
Diffstat (limited to 'haddock-test/src/Test/Haddock/Config.hs')
| -rw-r--r-- | haddock-test/src/Test/Haddock/Config.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/haddock-test/src/Test/Haddock/Config.hs b/haddock-test/src/Test/Haddock/Config.hs index 50616c7f..988636e4 100644 --- a/haddock-test/src/Test/Haddock/Config.hs +++ b/haddock-test/src/Test/Haddock/Config.hs @@ -193,7 +193,7 @@ loadConfig ccfg dcfg flags files = do , baseDependencies ghcPath ] - let cfgHaddockStdOut = fromMaybe "/dev/null" (flagsHaddockStdOut flags) + let cfgHaddockStdOut = fromMaybe defaultStdOut (flagsHaddockStdOut flags) cfgDiffTool <- if FlagNoDiff `elem` flags then pure Nothing @@ -256,6 +256,14 @@ defaultDiffTool = isAvailable = liftM isJust . findProgramLocation silent +defaultStdOut :: FilePath +#ifdef mingw32_HOST_OS +defaultStdOut = "nul" +#else +defaultStdOut = "/dev/null" +#endif + + processFileArgs :: DirConfig -> [String] -> IO [TestPackage] processFileArgs dcfg [] = processFileArgs' dcfg . filter isValidEntry =<< getDirectoryContents srcDir |