1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{-# LANGUAGE CPP #-}
#define PLATFORM_NAME Windows
#define PLATFORM_PATH WindowsPath
#include "Include.hs"
qqAbsDir :: PLATFORM_PATH
qqAbsDir = checkInstantiated [absdir|C:\foo\|]
qqAbsFile :: PLATFORM_PATH
qqAbsFile = checkInstantiated [absdir|C:\foo|]
thAbsDir :: PLATFORM_PATH
thAbsDir = checkInstantiated $(mkAbsDir [OsString.pstr|C:\foo\|])
thAbsFile :: PLATFORM_PATH
thAbsFile = checkInstantiated $(mkAbsFile [OsString.pstr|C:\foo|])
liftAbsDir :: PLATFORM_PATH
liftAbsDir = checkInstantiated $(TH.lift (Path [OsString.pstr|C:\foo\|] :: Path Abs Dir))
liftAbsFile :: PLATFORM_PATH
liftAbsFile = checkInstantiated $(TH.lift (Path [OsString.pstr|C:\foo|] :: Path Abs File))
|
