pantry-0.8.2: app/test-pretty-exceptions/windows/PathAbsExamples.hs

{-# LANGUAGE QuasiQuotes #-}

-- | The module of this name differs as between Windows and non-Windows builds.
-- This is the Windows version.
module PathAbsExamples
 ( pathAbsDirExample
 , pathAbsFileExample
 , pathAbsFileExamples
 ) where

import           Path ( Abs, Dir, File, Path, absdir, absfile )

pathAbsDirExample :: Path Abs Dir
pathAbsDirExample = [absdir|C:/Users/jane/my-project-dir|]

pathAbsFileExample :: Path Abs File
pathAbsFileExample = [absfile|C:/Users/jane/my-project-dir/example.ext|]

pathAbsFileExamples :: [Path Abs File]
pathAbsFileExamples =
  [ [absfile|C:/Users/jane/my-project-dir/example1.ext|]
  , [absfile|C:/Users/jane/my-project-dir/example2.ext|]
  , [absfile|C:/Users/jane/my-project-dir/example3.ext|]
  ]