update windows NUL for ghc 8.6.1

This should also work with older ghc, since the path is a windows device
namespace path.
This commit is contained in:
Joey Hess 2018-09-22 11:31:55 -04:00
parent 8873cf0789
commit d2c351f547
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -249,7 +249,8 @@ devNull :: FilePath
#ifndef mingw32_HOST_OS
devNull = "/dev/null"
#else
devNull = "NUL"
-- Use device namespace to prevent GHC from rewriting path
devNull = "\\.\NUL"
#endif
-- | Extract a desired handle from createProcess's tuple.