wasp/waspc/test/Fixtures.hs

module Fixtures where

import qualified Path as P
import Data.Maybe (fromJust)
import qualified System.FilePath as FP

import Wasp
import qualified Wasp.Route as RouteAST

app :: App
app = App
    { appName = "test_app"
    , appTitle = "Hello World!"
    , appHead = Nothing
    }

routeHome :: RouteAST.Route
routeHome = RouteAST.Route
    { RouteAST._urlPath = "/home"
    , RouteAST._targetPage = "Home"
    }

wasp :: Wasp
wasp = fromWaspElems
    [ WaspElementApp app
    ]

systemPathRoot :: P.Path P.Abs P.Dir
systemPathRoot = fromJust $ P.parseAbsDir systemFpRoot

systemFpRoot :: FilePath
systemFpRoot = if FP.pathSeparator == '\\' then "C:\\" else "/"