dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-28 06:12:33 +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 exposing (BackendTask)
import BackendTask.Env import BackendTask.Env
import Exception exposing (Throwable)
type alias EnvVariables = type alias EnvVariables =
{ sendGridKey : String { sendGridKey : String
, siteUrl : String , siteUrl : String
} }
sendEmail : Email -> BackendTask () sendEmail : Email -> BackendTask Throwable ()
sendEmail email = sendEmail email =
BackendTask.map2 EnvVariables BackendTask.map2 EnvVariables
(BackendTask.Env.expect "SEND_GRID_KEY") (BackendTask.Env.expect "SEND_GRID_KEY" |> BackendTask.throw)
(BackendTask.Env.get "BASE_URL" (BackendTask.Env.get "BASE_URL"
|> BackendTask.map (Maybe.withDefault "http://localhost:1234") |> BackendTask.map (Maybe.withDefault "http://localhost:1234")
) )
|> BackendTask.andThen (sendEmailBackendTask email) |> BackendTask.andThen (sendEmailBackendTask email)
sendEmailBackendTask : Email -> EnvVariables -> BackendTask () sendEmailBackendTask : Email -> EnvVariables -> BackendTask Throwable ()
sendEmailBackendTask email envVariables = sendEmailBackendTask email envVariables =
Debug.todo "Not defined here" Debug.todo "Not defined here"
@ -50,7 +51,8 @@ type Error
= MissingEnvVariable String = 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 : String -> BackendTask error (Maybe String)
get envVariableName = 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 : String -> BackendTask (Exception Error) String
expect envVariableName = expect envVariableName =