mirror of
https://github.com/wasp-lang/wasp.git
synced 2024-12-25 18:13:52 +03:00
33 lines
663 B
Haskell
33 lines
663 B
Haskell
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 "/"
|