Fix the test suite on Windows

commercialhaskell · Jul 13, 2020 · 3f97b23 · 3f97b23
1 parent 7683677
commit 3f97b23
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/test/TH.hs b/test/TH.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE TemplateHaskell #-}
@@ -22,7 +23,11 @@ instance Foo Rel File
 
 
 qqAbsDir :: FilePath
+#ifdef mingw32_HOST_OS
+qqAbsDir = foo [absdir|C:\foo\|]
+#else
 qqAbsDir = foo [absdir|/foo/|]
+#endif
 
 qqAbsFile :: FilePath
 qqAbsFile = foo [absfile|/foo|]