From 3f97b23be02d0f0a1b7aca76a3f3a1d7d3927306 Mon Sep 17 00:00:00 2001
From: Mark Karpov <markkarpov92@gmail.com>
Date: Mon, 13 Jul 2020 22:33:51 +0200
Subject: [PATCH] Fix the test suite on Windows

---
 test/TH.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/TH.hs b/test/TH.hs
index 7b63536..56321d3 100644
--- 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|]