dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-27 13:54:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Update Env docs.

Browse Source
This commit is contained in:
Dillon Kearns 2023-01-13 08:51:30 -08:00
parent cf46e1582a
commit ac366d663c
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs.json
View File

File diff suppressed because one or more lines are too long

12
src/BackendTask/Env.elm
View File

@ -8,22 +8,23 @@ down into the final `Data` value, it won't end up in the client!
import BackendTask exposing (BackendTask)
import BackendTask.Env
import Exception exposing (Throwable)
type alias EnvVariables =
{ sendGridKey : String
, siteUrl : String
}
sendEmail : Email -> BackendTask ()
sendEmail : Email -> BackendTask Throwable ()
sendEmail email =
BackendTask.map2 EnvVariables
(BackendTask.Env.expect "SEND_GRID_KEY")
(BackendTask.Env.expect "SEND_GRID_KEY" |> BackendTask.throw)
(BackendTask.Env.get "BASE_URL"
|> BackendTask.map (Maybe.withDefault "http://localhost:1234")
)
|> BackendTask.andThen (sendEmailBackendTask email)
sendEmailBackendTask : Email -> EnvVariables -> BackendTask ()
sendEmailBackendTask : Email -> EnvVariables -> BackendTask Throwable ()
sendEmailBackendTask email envVariables =
Debug.todo "Not defined here"
@ -50,7 +51,8 @@ type Error
= MissingEnvVariable String
{-| Get an environment variable, or Nothing if there is no environment variable matching that name.
{-| Get an environment variable, or Nothing if there is no environment variable matching that name. This `BackendTask`
will never fail, but instead will return `Nothing` if the environment variable is missing.
-}
get : String -> BackendTask error (Maybe String)
get envVariableName =
@ -63,7 +65,7 @@ get envVariableName =
}
{-| Get an environment variable, or a BackendTask failure if there is no environment variable matching that name.
{-| Get an environment variable, or a BackendTask Exception if there is no environment variable matching that name.
-}
expect : String -> BackendTask (Exception Error) String
expect envVariableName =