path-0.9.0: test/Common/Windows.hs

{-# LANGUAGE CPP #-}
{-# LANGUAGE QuasiQuotes #-}
#define PLATFORM_NAME   Windows
#define IS_WINDOWS      True
#include "Include.hs"

qqAbsDir :: FilePath
qqAbsDir = foo [absdir|C:\foo\|]

qqAbsFile :: FilePath
qqAbsFile = foo [absdir|C:\foo|]

thAbsDir :: FilePath
thAbsDir = foo $(mkAbsDir "C:\\foo\\")

thAbsFile :: FilePath
thAbsFile = foo $(mkAbsFile "C:\\foo")

liftAbsDir :: FilePath
liftAbsDir = foo $(TH.lift (Path "C:\\foo\\" :: Path Abs Dir))

liftAbsFile :: FilePath
liftAbsFile = foo $(TH.lift (Path "C:\\foo" :: Path Abs File))