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.EntityForm as EF
import qualified Wasp.Route as RouteAST
import qualified Generator.WebAppGenerator.EntityGenerator.EntityFormGenerator as GEF

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

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

taskEntity :: Entity
taskEntity = Entity
    { entityName = "Task"
    , entityFields =
        [ Wasp.EntityField "description" Wasp.EftString
        , Wasp.EntityField "isDone" Wasp.EftBoolean
        ]
    }

taskCreateForm :: EF.EntityForm
taskCreateForm = EF.EntityForm
    { EF._name = "CreateTaskForm"
    , EF._entityName = "Task"
    , EF._submit = Just EF.Submit
        { EF._onEnter = Just False
        , EF._submitButton = Nothing
        }
    , EF._fields = []
    }

userEntity :: Entity
userEntity = Entity
    { entityName = "User"
    , entityFields =
        [ Wasp.EntityField "name" Wasp.EftString
        , Wasp.EntityField "surname" Wasp.EftString
        ]
    }

userCreateForm :: EF.EntityForm
userCreateForm = EF.EntityForm
    { EF._name = "CreateUserForm"
    , EF._entityName = "User"
    , EF._submit = Nothing
    , EF._fields = []
    }

wasp :: Wasp
wasp = fromWaspElems
    [ WaspElementApp app
    , WaspElementEntity taskEntity
    , WaspElementEntityForm taskCreateForm
    ]

formFieldIsDone :: GEF.FormFieldTemplateData
formFieldIsDone = GEF.FormFieldTemplateData
    { GEF._fieldName = "isDone"
    , GEF._fieldType = Wasp.EftBoolean
    , GEF._fieldShow = True
    , GEF._fieldDefaultValue = EF.DefaultValueBool True
    , GEF._fieldPlaceholder = Nothing
    , GEF._fieldLabel = Nothing
    }

fpRoot :: P.Path P.Abs P.Dir
fpRoot = fromJust $ P.parseAbsDir $ if FP.pathSeparator == '\\' then "C:\\" else "/"