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|]