elm-pages 3.0.0-beta.13 → 3.0.0-beta.15

package/generator/review/elm-stuff/generated-code/elm-community/elm-test/0.19.1-revision10/install/elm.json

@@ -1,25 +0,0 @@
-{
-    "type": "application",
-    "source-directories": [
-        "."
-    ],
-    "elm-version": "0.19.1",
-    "dependencies": {
-        "direct": {
-            "elm/core": "1.0.5",
-            "elm/json": "1.1.3",
-            "elm-explorations/test": "2.1.0"
-        },
-        "indirect": {
-            "elm/bytes": "1.0.8",
-            "elm/html": "1.0.0",
-            "elm/random": "1.0.0",
-            "elm/time": "1.0.0",
-            "elm/virtual-dom": "1.0.3"
-        }
-    },
-    "test-dependencies": {
-        "direct": {},
-        "indirect": {}
-    }
-}

package/generator/review/elm-stuff/generated-code/elm-community/elm-test/0.19.1-revision7/install/elm.json

@@ -1,41 +0,0 @@
-{
-    "type": "application",
-    "source-directories": [
-        "."
-    ],
-    "elm-version": "0.19.1",
-    "dependencies": {
-        "direct": {
-            "elm/core": "1.0.5",
-            "elm/html": "1.0.0",
-            "elm/regex": "1.0.0",
-            "elm-community/result-extra": "2.4.0",
-            "elm-explorations/test": "2.0.1",
-            "jfmengels/elm-review": "2.10.0",
-            "mdgriffith/elm-codegen": "2.0.0",
-            "stil4m/elm-syntax": "7.2.9",
-            "the-sett/elm-syntax-dsl": "6.0.2"
-        },
-        "indirect": {
-            "Chadtech/elm-bool-extra": "2.4.2",
-            "elm/bytes": "1.0.8",
-            "elm/json": "1.1.3",
-            "elm/parser": "1.1.0",
-            "elm/project-metadata-utils": "1.0.2",
-            "elm/random": "1.0.0",
-            "elm/time": "1.0.0",
-            "elm/virtual-dom": "1.0.3",
-            "elm-community/basics-extra": "4.1.0",
-            "elm-community/list-extra": "8.7.0",
-            "elm-community/maybe-extra": "5.3.0",
-            "miniBill/elm-unicode": "1.0.2",
-            "rtfeldman/elm-hex": "1.0.0",
-            "stil4m/structured-writer": "1.0.3",
-            "the-sett/elm-pretty-printer": "3.0.0"
-        }
-    },
-    "test-dependencies": {
-        "direct": {},
-        "indirect": {}
-    }
-}

package/src/DataSource/Env.elm

@@ -1,62 +0,0 @@
-module DataSource.Env exposing (get, expect)
-
-{-| Because DataSource's in `elm-pages` never run in the browser (see [the DataSource docs](DataSource)), you can access environment variables securely. As long as the environment variable isn't sent
-down into the final `Data` value, it won't end up in the client!
-
-    import DataSource exposing (DataSource)
-    import DataSource.Env
-
-    type alias EnvVariables =
-        { sendGridKey : String
-        , siteUrl : String
-        }
-
-    sendEmail : Email -> DataSource ()
-    sendEmail email =
-        DataSource.map2 EnvVariables
-            (DataSource.Env.expect "SEND_GRID_KEY")
-            (DataSource.Env.get "BASE_URL"
-                |> DataSource.map (Maybe.withDefault "http://localhost:1234")
-            )
-            |> DataSource.andThen (sendEmailDataSource email)
-
-    sendEmailDataSource : Email -> EnvVariables -> DataSource ()
-    sendEmailDataSource email envVariables =
-        Debug.todo "Not defined here"
-
-@docs get, expect
-
--}
-
-import DataSource exposing (DataSource)
-import DataSource.Http
-import DataSource.Internal.Request
-import Json.Decode as Decode
-import Json.Encode as Encode
-
-
-{-| Get an environment variable, or Nothing if there is no environment variable matching that name.
--}
-get : String -> DataSource (Maybe String)
-get envVariableName =
-    DataSource.Internal.Request.request
-        { name = "env"
-        , body = DataSource.Http.jsonBody (Encode.string envVariableName)
-        , expect =
-            DataSource.Http.expectJson
-                (Decode.nullable Decode.string)
-        }
-
-
-{-| Get an environment variable, or a DataSource failure if there is no environment variable matching that name.
--}
-expect : String -> DataSource String
-expect envVariableName =
-    envVariableName
-        |> get
-        |> DataSource.andThen
-            (\maybeValue ->
-                maybeValue
-                    |> Result.fromMaybe ("DataSource.Env.expect was expecting a variable `" ++ envVariableName ++ "` but couldn't find a variable with that name.")
-                    |> DataSource.fromResult
-            )

package/src/DataSource/Http.elm

@@ -1,446 +0,0 @@
-module DataSource.Http exposing
-    ( RequestDetails
-    , get, request
-    , Expect, expectString, expectJson, expectBytes, expectWhatever
-    , Response(..), Metadata, Error(..)
-    , expectStringResponse, expectBytesResponse
-    , Body, emptyBody, stringBody, jsonBody
-    , uncachedRequest
-    )
-
-{-| `DataSource.Http` requests are an alternative to doing Elm HTTP requests the traditional way using the `elm/http` package.
-
-The key differences are:
-
-  - `DataSource.Http.Request`s are performed once at build time (`Http.Request`s are performed at runtime, at whenever point you perform them)
-  - `DataSource.Http.Request`s have a built-in `DataSource.andThen` that allows you to perform follow-up requests without using tasks
-
-
-## Scenarios where DataSource.Http is a good fit
-
-If you need data that is refreshed often you may want to do a traditional HTTP request with the `elm/http` package.
-The kinds of situations that are served well by static HTTP are with data that updates moderately frequently or infrequently (or never).
-A common pattern is to trigger a new build when data changes. Many JAMstack services
-allow you to send a WebHook to your host (for example, Netlify is a good static file host that supports triggering builds with webhooks). So
-you may want to have your site rebuild everytime your calendar feed has an event added, or whenever a page or article is added
-or updated on a CMS service like Contentful.
-
-In scenarios like this, you can serve data that is just as up-to-date as it would be using `elm/http`, but you get the performance
-gains of using `DataSource.Http.Request`s as well as the simplicity and robustness that comes with it. Read more about these benefits
-in [this article introducing DataSource.Http requests and some concepts around it](https://elm-pages.com/blog/static-http).
-
-
-## Scenarios where DataSource.Http is not a good fit
-
-  - Data that is specific to the logged-in user
-  - Data that needs to be the very latest and changes often (for example, sports scores)
-
-@docs RequestDetails
-@docs get, request
-
-
-## Decoding Request Body
-
-@docs Expect, expectString, expectJson, expectBytes, expectWhatever
-
-
-## Expecting Responses
-
-@docs Response, Metadata, Error
-
-@docs expectStringResponse, expectBytesResponse
-
-
-## Building a DataSource.Http Request Body
-
-The way you build a body is analogous to the `elm/http` package. Currently, only `emptyBody` and
-`stringBody` are supported. If you have a use case that calls for a different body type, please open a Github issue
-and describe your use case!
-
-@docs Body, emptyBody, stringBody, jsonBody
-
-
-## Uncached Requests
-
-@docs uncachedRequest
-
--}
-
-import Bytes exposing (Bytes)
-import Bytes.Decode
-import DataSource exposing (DataSource)
-import Dict exposing (Dict)
-import Json.Decode
-import Json.Encode as Encode
-import Pages.Internal.StaticHttpBody as Body
-import Pages.StaticHttp.Request as HashRequest
-import Pages.StaticHttpRequest exposing (RawRequest(..))
-import RequestsAndPending
-
-
-{-| Build an empty body for a DataSource.Http request. See [elm/http's `Http.emptyBody`](https://package.elm-lang.org/packages/elm/http/latest/Http#emptyBody).
--}
-emptyBody : Body
-emptyBody =
-    Body.EmptyBody
-
-
-{-| Builds a string body for a DataSource.Http request. See [elm/http's `Http.stringBody`](https://package.elm-lang.org/packages/elm/http/latest/Http#stringBody).
-
-Note from the `elm/http` docs:
-
-> The first argument is a [MIME type](https://en.wikipedia.org/wiki/Media_type) of the body. Some servers are strict about this!
-
--}
-stringBody : String -> String -> Body
-stringBody contentType content =
-    Body.StringBody contentType content
-
-
-{-| Builds a JSON body for a DataSource.Http request. See [elm/http's `Http.jsonBody`](https://package.elm-lang.org/packages/elm/http/latest/Http#jsonBody).
--}
-jsonBody : Encode.Value -> Body
-jsonBody content =
-    Body.JsonBody content
-
-
-{-| A body for a DataSource.Http request.
--}
-type alias Body =
-    Body.Body
-
-
-{-| A simplified helper around [`DataSource.Http.request`](#request), which builds up a DataSource.Http GET request.
-
-    import DataSource
-    import DataSource.Http
-    import Json.Decode as Decode exposing (Decoder)
-
-    getRequest : DataSource Int
-    getRequest =
-        DataSource.Http.get
-            "https://api.github.com/repos/dillonkearns/elm-pages"
-            (Decode.field "stargazers_count" Decode.int)
-
--}
-get :
-    String
-    -> Json.Decode.Decoder a
-    -> DataSource a
-get url decoder =
-    request
-        ((\okUrl ->
-            -- wrap in new variant
-            { url = okUrl
-            , method = "GET"
-            , headers = []
-            , body = emptyBody
-            }
-         )
-            url
-        )
-        (expectJson decoder)
-
-
-{-| The full details to perform a DataSource.Http request.
--}
-type alias RequestDetails =
-    { url : String
-    , method : String
-    , headers : List ( String, String )
-    , body : Body
-    }
-
-
-{-| Analogous to the `Expect` type in the `elm/http` package. This represents how you will process the data that comes
-back in your DataSource.Http request.
-
-You can derive `ExpectJson` from `ExpectString`. Or you could build your own helper to process the String
-as XML, for example, or give an `elm-pages` build error if the response can't be parsed as XML.
-
--}
-type Expect value
-    = ExpectJson (Json.Decode.Decoder value)
-    | ExpectString (String -> value)
-    | ExpectResponse (Response String -> value)
-    | ExpectBytesResponse (Response Bytes -> value)
-    | ExpectBytes (Bytes.Decode.Decoder value)
-    | ExpectWhatever value
-
-
-{-| Gives the HTTP response body as a raw String.
-
-    import DataSource exposing (DataSource)
-    import DataSource.Http
-
-    request : DataSource String
-    request =
-        DataSource.Http.request
-            { url = "https://example.com/file.txt"
-            , method = "GET"
-            , headers = []
-            , body = DataSource.Http.emptyBody
-            }
-            DataSource.Http.expectString
-
--}
-expectString : Expect String
-expectString =
-    ExpectString identity
-
-
-{-| Handle the incoming response as JSON and don't optimize the asset and strip out unused values.
-Be sure to use the `DataSource.Http.request` function if you want an optimized request that
-strips out unused JSON to optimize your asset size. This function makes sense to use for things like a GraphQL request
-where the JSON payload is already trimmed down to the data you explicitly requested.
-
-If the function you pass to `expectString` yields an `Err`, then you will get a build error that will
-fail your `elm-pages` build and print out the String from the `Err`.
-
--}
-expectJson : Json.Decode.Decoder value -> Expect value
-expectJson =
-    ExpectJson
-
-
-{-| -}
-expectBytes : Bytes.Decode.Decoder value -> Expect value
-expectBytes =
-    ExpectBytes
-
-
-{-| -}
-expectWhatever : value -> Expect value
-expectWhatever =
-    ExpectWhatever
-
-
-{-| -}
-expectStringResponse : Expect (Response String)
-expectStringResponse =
-    ExpectResponse identity
-
-
-{-| -}
-expectBytesResponse : Expect (Response Bytes)
-expectBytesResponse =
-    ExpectBytesResponse identity
-
-
-expectToString : Expect a -> String
-expectToString expect =
-    case expect of
-        ExpectJson _ ->
-            "ExpectJson"
-
-        ExpectString _ ->
-            "ExpectString"
-
-        ExpectResponse _ ->
-            "ExpectResponse"
-
-        ExpectBytes _ ->
-            "ExpectBytes"
-
-        ExpectWhatever _ ->
-            "ExpectWhatever"
-
-        ExpectBytesResponse _ ->
-            "ExpectBytesResponse"
-
-
-{-| -}
-request :
-    RequestDetails
-    -> Expect a
-    -> DataSource a
-request request__ expect =
-    let
-        request_ : HashRequest.Request
-        request_ =
-            { url = request__.url
-            , headers = request__.headers
-            , method = request__.method
-            , body = request__.body
-            , useCache = True
-            }
-    in
-    requestRaw request_ expect
-
-
-{-| -}
-uncachedRequest :
-    RequestDetails
-    -> Expect a
-    -> DataSource a
-uncachedRequest request__ expect =
-    let
-        request_ : HashRequest.Request
-        request_ =
-            { url = request__.url
-            , headers = request__.headers
-            , method = request__.method
-            , body = request__.body
-            , useCache = False
-            }
-    in
-    requestRaw request_ expect
-
-
-{-| Build a `DataSource.Http` request (analogous to [Http.request](https://package.elm-lang.org/packages/elm/http/latest/Http#request)).
-This function takes in all the details to build a `DataSource.Http` request, but you can build your own simplified helper functions
-with this as a low-level detail, or you can use functions like [DataSource.Http.get](#get).
--}
-requestRaw :
-    HashRequest.Request
-    -> Expect a
-    -> DataSource a
-requestRaw request__ expect =
-    let
-        request_ : HashRequest.Request
-        request_ =
-            { url = request__.url
-            , headers =
-                ( "elm-pages-internal", expectToString expect )
-                    :: request__.headers
-            , method = request__.method
-            , body = request__.body
-            , useCache = False
-            }
-    in
-    Request
-        [ request_ ]
-        (\maybeMockResolver rawResponseDict ->
-            (case maybeMockResolver of
-                Just mockResolver ->
-                    mockResolver request_
-
-                Nothing ->
-                    rawResponseDict |> RequestsAndPending.get (request_ |> HashRequest.hash)
-            )
-                |> (\maybeResponse ->
-                        case maybeResponse of
-                            Just rawResponse ->
-                                Ok rawResponse
-
-                            Nothing ->
-                                Err (Pages.StaticHttpRequest.MissingHttpResponse request_.url [ request_ ])
-                   )
-                |> Result.andThen
-                    (\(RequestsAndPending.Response maybeResponse body) ->
-                        case ( expect, body, maybeResponse ) of
-                            ( ExpectJson decoder, RequestsAndPending.JsonBody json, _ ) ->
-                                json
-                                    |> Json.Decode.decodeValue decoder
-                                    |> Result.mapError
-                                        (\error ->
-                                            error
-                                                |> Json.Decode.errorToString
-                                                |> Pages.StaticHttpRequest.DecoderError
-                                        )
-
-                            ( ExpectString mapStringFn, RequestsAndPending.StringBody string, _ ) ->
-                                string
-                                    |> mapStringFn
-                                    |> Ok
-
-                            ( ExpectResponse mapResponse, RequestsAndPending.StringBody asStringBody, Just rawResponse ) ->
-                                let
-                                    asMetadata : Metadata
-                                    asMetadata =
-                                        { url = rawResponse.url
-                                        , statusCode = rawResponse.statusCode
-                                        , statusText = rawResponse.statusText
-                                        , headers = rawResponse.headers
-                                        }
-
-                                    rawResponseToResponse : Response String
-                                    rawResponseToResponse =
-                                        if 200 <= rawResponse.statusCode && rawResponse.statusCode < 300 then
-                                            GoodStatus_ asMetadata asStringBody
-
-                                        else
-                                            BadStatus_ asMetadata asStringBody
-                                in
-                                rawResponseToResponse
-                                    |> mapResponse
-                                    |> Ok
-
-                            ( ExpectBytesResponse mapResponse, RequestsAndPending.BytesBody rawBytesBody, Just rawResponse ) ->
-                                let
-                                    asMetadata : Metadata
-                                    asMetadata =
-                                        { url = rawResponse.url
-                                        , statusCode = rawResponse.statusCode
-                                        , statusText = rawResponse.statusText
-                                        , headers = rawResponse.headers
-                                        }
-
-                                    rawResponseToResponse : Response Bytes
-                                    rawResponseToResponse =
-                                        if 200 <= rawResponse.statusCode && rawResponse.statusCode < 300 then
-                                            GoodStatus_ asMetadata rawBytesBody
-
-                                        else
-                                            BadStatus_ asMetadata rawBytesBody
-                                in
-                                rawResponseToResponse
-                                    |> mapResponse
-                                    |> Ok
-
-                            ( ExpectBytes bytesDecoder, RequestsAndPending.BytesBody rawBytes, _ ) ->
-                                rawBytes
-                                    |> Bytes.Decode.decode bytesDecoder
-                                    |> Result.fromMaybe
-                                        (Pages.StaticHttpRequest.DecoderError
-                                            "Bytes decoding failed."
-                                        )
-
-                            ( ExpectWhatever whateverValue, RequestsAndPending.WhateverBody, _ ) ->
-                                Ok whateverValue
-
-                            _ ->
-                                Err
-                                    (Pages.StaticHttpRequest.DecoderError
-                                        "Internal error - unexpected body, expect, and raw response combination."
-                                    )
-                    )
-                |> toResult
-        )
-
-
-{-| -}
-type alias Metadata =
-    { url : String
-    , statusCode : Int
-    , statusText : String
-    , headers : Dict String String
-    }
-
-
-{-| -}
-type Response body
-    = BadUrl_ String
-    | Timeout_
-    | NetworkError_
-    | BadStatus_ Metadata body
-    | GoodStatus_ Metadata body
-
-
-{-| -}
-type Error
-    = BadUrl String
-    | Timeout
-    | NetworkError
-    | BadStatus Metadata String
-    | BadBody String
-
-
-toResult : Result Pages.StaticHttpRequest.Error b -> RawRequest b
-toResult result =
-    case result of
-        Err error ->
-            RequestError error
-
-        Ok okValue ->
-            ApiRoute okValue

package/src/DataSource/Internal/Request.elm

@@ -1,20 +0,0 @@
-module DataSource.Internal.Request exposing (request)
-
-import DataSource exposing (DataSource)
-import DataSource.Http exposing (Body, Expect)
-
-
-request :
-    { name : String
-    , body : Body
-    , expect : Expect a
-    }
-    -> DataSource a
-request { name, body, expect } =
-    DataSource.Http.request
-        { url = "elm-pages-internal://" ++ name
-        , method = "GET"
-        , headers = []
-        , body = body
-        }
-        expect