Dev.Server

main :: Effect Unit

appLayer :: OmLayer (scope :: Scope) Errs { characterRepo :: CharacterRepo, characterTable :: CharacterTable, server :: Fastify }

type ServerL :: Row Type -> Row Typetype ServerL r = (server :: Fastify | r)

serverLayer :: OmLayer (CharacterRepoL (scope :: Scope)) Errs (Record (ServerL ()))

type Ctx = { characterRepo :: CharacterRepo }

type Errs :: Row Typetype Errs = (wrongArgumentType :: String)

schema :: forall gql. GraphQL Ctx Errs gql

handleErrors :: forall a. { exception :: Error -> Aff a, wrongArgumentType :: String -> Aff a }

type CharacterRepo = { findAll :: Aff (Array Character), findByName :: String -> Aff (Maybe Character) }

type CharacterRepoL :: Row Type -> Row Typetype CharacterRepoL r = (characterRepo :: CharacterRepo | r)

characterRepoLayer :: OmLayer (CharacterTableL (scope :: Scope)) () (Record (CharacterRepoL ()))

makeCharacterRepo :: CharacterTable -> CharacterRepo

type CharacterTable = Ref (Array Character)

type CharacterTableL :: Row Type -> Row Typetype CharacterTableL r = (characterTable :: CharacterTable | r)

characterTableLayer :: Array Character -> OmLayer (scope :: Scope) () (Record (CharacterTableL ()))

alice :: Character

bob :: Character