Update for Elm 0.19

elm.json

@@ -20,14 +20,16 @@
     ],
     "elm-version": "0.19.0 <= v < 0.20.0",
     "dependencies": {
+        "elm-community/json-extra": "2.6.0 <= v < 3.0.0",
+        "elm-community/list-extra": "7.0.1 <= v < 8.0.0",
+        "elm-community/string-extra": "1.4.0 <= v < 2.0.0",
         "elm-lang/core": "6.0.0 <= v < 7.0.0",
         "elm-lang/http": "2.0.0 <= v < 3.0.0",
         "elm-lang/json": "1.0.0 <= v < 2.0.0",
+        "elm-lang/time": "1.0.0 <= v < 2.0.0",
+        "elm-lang/url": "1.0.0 <= v < 2.0.0",
         "elm-lang/websocket": "1.0.3 <= v < 2.0.0",
-        "elm-community/json-extra": "2.6.0 <= v < 3.0.0",
-        "elm-community/list-extra": "7.0.1 <= v < 8.0.0",
-        "elm-community/string-extra": "1.4.0 <= v < 2.0.0",
         "lukewestby/elm-string-interpolate": "1.0.2 <= v < 2.0.0"
     },
     "test-dependencies": {}
-}
+}

ete_tests/src/RailsDemo.elm

@@ -69,11 +69,6 @@ postView post =
         ]
 
 
-(=>) : a -> b -> ( a, b )
-(=>) =
-    (,)
-
-
 socketUrl : String
 socketUrl =
     "ws://localhost:8080/subscriptions"

examples/src/Subscription.elm

@@ -131,20 +131,15 @@ messageButtons =
         )
 
 
-(=>) : a -> b -> ( a, b )
-(=>) =
-    (,)
-
-
 characters : List ( String, String )
 characters =
-    [ "1000" => "Luke"
-    , "1001" => "Vader"
-    , "1002" => "Han"
-    , "1003" => "Leia"
-    , "1004" => "Tarkin"
-    , "2000" => "Threepio"
-    , "2001" => "Artoo"
+    [ ( "1000", "Luke" )
+    , ( "1001", "Vader" )
+    , ( "1002", "Han" )
+    , ( "1003", "Leia" )
+    , ( "1004", "Tarkin" )
+    , ( "2000", "Threepio" )
+    , ( "2001", "Artoo" )
     ]
 
 
@@ -166,7 +161,7 @@ chatMessagesView model =
                         avatar =
                             character |> Maybe.map .avatarUrl |> Maybe.withDefault ""
                     in
-                    li [] [ img [ style [ "width" => "40px", "padding-right" => "5px" ], src avatar ] [], (characterName ++ ": " ++ (phrase |> phraseToString)) |> text ]
+                    li [] [ img [ style [ ( "width", "40px" ), ( "padding-right", "5px" ) ], src avatar ] [], (characterName ++ ": " ++ (phrase |> phraseToString)) |> text ]
                 )
         )
 

src/Graphqelm/Document.elm

@@ -11,7 +11,7 @@ are helpful for debugging and demo purposes.
 import Graphqelm.Document.Field as Field
 import Graphqelm.Operation exposing (RootMutation, RootQuery, RootSubscription)
 import Graphqelm.RawField exposing (RawField)
-import Graphqelm.SelectionSet exposing (SelectionSet(SelectionSet))
+import Graphqelm.SelectionSet exposing (SelectionSet(..))
 import Json.Decode as Decode exposing (Decoder)
 import String.Interpolate exposing (interpolate)
 

src/Graphqelm/Document/Argument.elm

@@ -1,6 +1,6 @@
 module Graphqelm.Document.Argument exposing (serialize)
 
-import Graphqelm.Internal.Builder.Argument as Argument exposing (Argument(Argument))
+import Graphqelm.Internal.Builder.Argument as Argument exposing (Argument(..))
 import Graphqelm.Internal.Encode as Encode
 
 

src/Graphqelm/Document/Field.elm

@@ -2,7 +2,7 @@ module Graphqelm.Document.Field exposing (serializeChildren)
 
 import Graphqelm.Document.Argument as Argument
 import Graphqelm.Document.Indent as Indent
-import Graphqelm.RawField exposing (RawField(Composite, Leaf))
+import Graphqelm.RawField exposing (RawField(..))
 import List.Extra
 
 
@@ -29,12 +29,12 @@ alias fieldIndex fields field =
 
 
 serialize : Maybe String -> Maybe Int -> RawField -> Maybe String
-serialize alias mIndentationLevel field =
+serialize aliasName mIndentationLevel field =
     let
         prefix =
-            case alias of
-                Just aliasName ->
-                    aliasName
+            case aliasName of
+                Just aliasName_ ->
+                    aliasName_
                         ++ (case mIndentationLevel of
                                 Just _ ->
                                     ": "

src/Graphqelm/Field.elm

@@ -1,4 +1,4 @@
-module Graphqelm.Field exposing (Field(Field), map, mapOrFail, nonNullElementsOrFail, nonNullOrFail)
+module Graphqelm.Field exposing (Field(..), map, mapOrFail, nonNullElementsOrFail, nonNullOrFail)
 
 {-| `Field`s are automatically generated by the `graphqelm` CLI command.
 You can use `Graphqelm.Field.map` to transform a value.

src/Graphqelm/Http.elm

@@ -44,7 +44,6 @@ import Http
 import Json.Decode
 import Json.Encode
 import Task exposing (Task)
-import Time exposing (Time)
 
 
 {-| An internal request as it's built up. Once it's built up, send the
@@ -56,7 +55,7 @@ type Request decodesTo
         , headers : List Http.Header
         , baseUrl : String
         , expect : Json.Decode.Decoder decodesTo
-        , timeout : Maybe Time
+        , timeout : Maybe Float
         , withCredentials : Bool
         , queryParams : List ( String, String )
         }
@@ -319,7 +318,7 @@ errorDecoder decoder =
 
 decodeErrorWithData : GraphqlError.PossiblyParsedData a -> Json.Decode.Decoder (DataResult a)
 decodeErrorWithData data =
-    GraphqlError.decoder |> Json.Decode.map ((,) data) |> Json.Decode.map Err
+    GraphqlError.decoder |> Json.Decode.map (Tuple.pair data) |> Json.Decode.map Err
 
 
 {-| Add a header.

src/Graphqelm/Http/QueryParams.elm

@@ -1,6 +1,6 @@
 module Graphqelm.Http.QueryParams exposing (urlWithQueryParams)
 
-import Http
+import Url
 
 
 urlWithQueryParams : List ( String, String ) -> String -> String
@@ -24,7 +24,7 @@ queryPair ( key, value ) =
 
 queryEscape : String -> String
 queryEscape =
-    Http.encodeUri >> replace "%20" "+"
+    Url.percentEncode >> replace "%20" "+"
 
 
 replace : String -> String -> String -> String

src/Graphqelm/Internal/Builder/Argument.elm

@@ -1,4 +1,4 @@
-module Graphqelm.Internal.Builder.Argument exposing (Argument(Argument), optional, required)
+module Graphqelm.Internal.Builder.Argument exposing (Argument(..), optional, required)
 
 {-| **WARNING** `Graphqelm.Interal` modules are used by the `graphqelm` command line
 code generator tool. They should not be consumed through hand-written code.

src/Graphqelm/Internal/Builder/Object.elm

@@ -10,10 +10,10 @@ Internal functions for use by auto-generated code from the `graphqelm` CLI.
 -}
 
 import Dict
-import Graphqelm.Field as Field exposing (Field(Field))
+import Graphqelm.Field as Field exposing (Field(..))
 import Graphqelm.Internal.Builder.Argument exposing (Argument)
 import Graphqelm.RawField exposing (RawField)
-import Graphqelm.SelectionSet exposing (FragmentSelectionSet(FragmentSelectionSet), SelectionSet(..))
+import Graphqelm.SelectionSet exposing (FragmentSelectionSet(..), SelectionSet(..))
 import Json.Decode as Decode exposing (Decoder)
 
 

src/Graphqelm/Internal/Encode.elm

@@ -92,31 +92,31 @@ null =
 {-| Encode a bool
 -}
 bool : Bool -> Value
-bool bool =
-    Json.Encode.bool bool
+bool value =
+    Json.Encode.bool value
         |> Json
 
 
 {-| Encode a string
 -}
 string : String -> Value
-string string =
-    Json.Encode.string string
+string value =
+    Json.Encode.string value
         |> Json
 
 
 {-| Encode an enum. The first argument is the toString function for that enum.
 -}
 enum : (a -> String) -> a -> Value
-enum enumToString enum =
-    EnumValue (enumToString enum)
+enum enumToString value =
+    EnumValue (enumToString value)
 
 
 {-| Encode a list of Values
 -}
 list : (a -> Value) -> List a -> Value
-list toValue list =
-    list
+list toValue value =
+    value
         |> List.map toValue
         |> List
 

src/Graphqelm/RawField.elm

@@ -1,4 +1,4 @@
-module Graphqelm.RawField exposing (RawField(Composite, Leaf), name)
+module Graphqelm.RawField exposing (RawField(..), name)
 
 import Graphqelm.Internal.Builder.Argument as Argument exposing (Argument)
 

src/Graphqelm/SelectionSet.elm

@@ -1,4 +1,4 @@
-module Graphqelm.SelectionSet exposing (FragmentSelectionSet(FragmentSelectionSet), SelectionSet(SelectionSet), empty, hardcoded, map, succeed, with)
+module Graphqelm.SelectionSet exposing (FragmentSelectionSet(..), SelectionSet(..), empty, hardcoded, map, succeed, with)
 
 {-| The auto-generated code from the `graphqelm` CLI will provide `selection`
 functions for Objects, Interfaces, and Unions in your GraphQL schema.
@@ -58,7 +58,7 @@ These types are built for you by the code generated by the `graphqelm` command l
 
 -}
 
-import Graphqelm.Field as Field exposing (Field(Field))
+import Graphqelm.Field as Field exposing (Field(..))
 import Graphqelm.RawField as RawField exposing (RawField)
 import Json.Decode as Decode exposing (Decoder)
 import List.Extra

src/Graphqelm/Subscription/Protocol.elm

@@ -21,15 +21,15 @@ for Elixir/Phoenix:
         frameworkKnowledge : Graphqelm.Subscription.Protocol subscriptionDecodesTo
         frameworkKnowledge =
         { initMessage =
-        Encode.list
+        Encode.list identity
             [ Encode.string "1"
             , Encode.string "1"
             , Encode.string "__absinthe__:control"
             , Encode.string "phx_join"
             , Encode.object []
             ]
         , heartBeatMessage =
-        Encode.list
+        Encode.list identity
             [ Encode.null
             , Encode.string "1"
             , Encode.string "phoenix"
@@ -38,7 +38,7 @@ for Elixir/Phoenix:
             ]
         , documentRequest =
         \operation ->
-            Encode.list
+            Encode.list identity
                 [ Encode.string "1"
                 , Encode.string "1"
                 , Encode.string "__absinthe__:control"
@@ -80,27 +80,27 @@ phoenixAbsinthe : Protocol subscriptionDecodesTo
 phoenixAbsinthe =
     { initMessage =
         \referenceId ->
-            Encode.list
+            Encode.list identity
                 [ Encode.null
-                , Encode.string (toString referenceId)
+                , Encode.string (String.fromInt referenceId)
                 , Encode.string "__absinthe__:control"
                 , Encode.string "phx_join"
                 , Encode.object []
                 ]
     , heartBeatMessage =
         \referenceId ->
-            Encode.list
+            Encode.list identity
                 [ Encode.null
-                , Encode.string (toString referenceId)
+                , Encode.string (String.fromInt referenceId)
                 , Encode.string "phoenix"
                 , Encode.string "heartbeat"
                 , Encode.object []
                 ]
     , documentRequest =
         \referenceId operation ->
-            Encode.list
+            Encode.list identity
                 [ Encode.string "1"
-                , Encode.string (toString referenceId)
+                , Encode.string (String.fromInt referenceId)
                 , Encode.string "__absinthe__:control"
                 , Encode.string "doc"
                 , Encode.object [ ( "query", operation |> Encode.string ) ]
@@ -140,9 +140,9 @@ rails =
                 ]
     , heartBeatMessage =
         \referenceId ->
-            Encode.list
+            Encode.list identity
                 [ Encode.null
-                , Encode.string (toString referenceId)
+                , Encode.string (String.fromInt referenceId)
                 , Encode.string "phoenix"
                 , Encode.string "heartbeat"
                 , Encode.object []

tests/EncodeTests.elm

@@ -5,11 +5,6 @@ import Graphqelm.Internal.Encode
 import Test exposing (Test, describe, test)
 
 
-(=>) : a -> b -> ( a, b )
-(=>) =
-    (,)
-
-
 all : Test
 all =
     describe "encode"
@@ -37,9 +32,9 @@ all =
         , test "non-empty object" <|
             \() ->
                 Graphqelm.Internal.Encode.object
-                    [ "number" => Graphqelm.Internal.Encode.int 47
-                    , "boolean" => Graphqelm.Internal.Encode.bool True
-                    , "enum" => Graphqelm.Internal.Encode.enum toString EMPIRE
+                    [ ( "number", Graphqelm.Internal.Encode.int 47 )
+                    , ( "boolean", Graphqelm.Internal.Encode.bool True )
+                    , ( "enum", Graphqelm.Internal.Encode.enum toString EMPIRE )
                     ]
                     |> Graphqelm.Internal.Encode.serialize
                     |> Expect.equal """{number: 47, boolean: true, enum: EMPIRE}"""