2020-01-09 12:58:07 +03:00
|
|
|
module Fixtures where
|
|
|
|
|
|
2020-09-17 16:41:59 +03:00
|
|
|
import Data.Maybe (fromJust)
|
2021-04-28 18:36:00 +03:00
|
|
|
import qualified Path as P
|
2021-07-03 12:00:01 +03:00
|
|
|
import qualified StrongPath as SP
|
2020-09-17 16:41:59 +03:00
|
|
|
import qualified System.FilePath as FP
|
2020-01-28 13:37:36 +03:00
|
|
|
|
2021-07-03 12:00:01 +03:00
|
|
|
systemSPRoot :: SP.Path' SP.Abs (SP.Dir d)
|
|
|
|
|
systemSPRoot = fromJust $ SP.parseAbsDir systemFpRoot
|
|
|
|
|
|
2020-10-02 18:22:56 +03:00
|
|
|
systemPathRoot :: P.Path P.Abs P.Dir
|
|
|
|
|
systemPathRoot = fromJust $ P.parseAbsDir systemFpRoot
|
|
|
|
|
|
|
|
|
|
systemFpRoot :: FilePath
|
|
|
|
|
systemFpRoot = if FP.pathSeparator == '\\' then "C:\\" else "/"
|
