Foolproof Relay Pagination API

examples/elm.json

@@ -3,6 +3,7 @@
     "source-directories": [
         "../src",
         "src",
+        "gen",
         "src/complex"
     ],
     "elm-version": "0.19.0",
@@ -35,4 +36,4 @@
         "direct": {},
         "indirect": {}
     }
-}
+}

examples/gen/Pages/Enum/CacheControlScope.elm

@@ -0,0 +1,52 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Enum.CacheControlScope exposing (CacheControlScope(..), decoder, list, toString)
+
+import Json.Decode as Decode exposing (Decoder)
+
+
+{-|
+
+  - Public -
+  - Private -
+
+-}
+type CacheControlScope
+    = Public
+    | Private
+
+
+list : List CacheControlScope
+list =
+    [ Public, Private ]
+
+
+decoder : Decoder CacheControlScope
+decoder =
+    Decode.string
+        |> Decode.andThen
+            (\string ->
+                case string of
+                    "PUBLIC" ->
+                        Decode.succeed Public
+
+                    "PRIVATE" ->
+                        Decode.succeed Private
+
+                    _ ->
+                        Decode.fail ("Invalid CacheControlScope type, " ++ string ++ " try re-running the @dillonkearns/elm-graphql CLI ")
+            )
+
+
+{-| Convert from the union type representating the Enum to a string that the GraphQL server will recognize.
+-}
+toString : CacheControlScope -> String
+toString enum =
+    case enum of
+        Public ->
+            "PUBLIC"
+
+        Private ->
+            "PRIVATE"

examples/gen/Pages/InputObject.elm

@@ -0,0 +1,10 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.InputObject exposing (placeholder)
+
+
+placeholder : String
+placeholder =
+    ""

examples/gen/Pages/Interface.elm

@@ -0,0 +1,10 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Interface exposing (placeholder)
+
+
+placeholder : String
+placeholder =
+    ""

examples/gen/Pages/Object.elm

@@ -0,0 +1,21 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Object exposing (PageInfo(..), StargazerConnection(..), StargazerEdge(..), User(..))
+
+
+type PageInfo
+    = PageInfo
+
+
+type StargazerConnection
+    = StargazerConnection
+
+
+type StargazerEdge
+    = StargazerEdge
+
+
+type User
+    = User

examples/gen/Pages/Object/PageInfo.elm

@@ -0,0 +1,43 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Object.PageInfo exposing (endCursor, hasNextPage, hasPreviousPage, starCursor)
+
+import Graphql.Internal.Builder.Argument as Argument exposing (Argument)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode as Encode exposing (Value)
+import Graphql.Operation exposing (RootMutation, RootQuery, RootSubscription)
+import Graphql.OptionalArgument exposing (OptionalArgument(..))
+import Graphql.SelectionSet exposing (SelectionSet)
+import Json.Decode as Decode
+import Pages.InputObject
+import Pages.Interface
+import Pages.Object
+import Pages.Scalar
+import Pages.ScalarCodecs
+import Pages.Union
+
+
+{-| -}
+endCursor : SelectionSet (Maybe String) Pages.Object.PageInfo
+endCursor =
+    Object.selectionForField "(Maybe String)" "endCursor" [] (Decode.string |> Decode.nullable)
+
+
+{-| -}
+hasNextPage : SelectionSet Bool Pages.Object.PageInfo
+hasNextPage =
+    Object.selectionForField "Bool" "hasNextPage" [] Decode.bool
+
+
+{-| -}
+hasPreviousPage : SelectionSet Bool Pages.Object.PageInfo
+hasPreviousPage =
+    Object.selectionForField "Bool" "hasPreviousPage" [] Decode.bool
+
+
+{-| -}
+starCursor : SelectionSet (Maybe String) Pages.Object.PageInfo
+starCursor =
+    Object.selectionForField "(Maybe String)" "starCursor" [] (Decode.string |> Decode.nullable)

examples/gen/Pages/Object/StargazerConnection.elm

@@ -0,0 +1,37 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Object.StargazerConnection exposing (edges, pageInfo, totalCount)
+
+import Graphql.Internal.Builder.Argument as Argument exposing (Argument)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode as Encode exposing (Value)
+import Graphql.Operation exposing (RootMutation, RootQuery, RootSubscription)
+import Graphql.OptionalArgument exposing (OptionalArgument(..))
+import Graphql.SelectionSet exposing (SelectionSet)
+import Json.Decode as Decode
+import Pages.InputObject
+import Pages.Interface
+import Pages.Object
+import Pages.Scalar
+import Pages.ScalarCodecs
+import Pages.Union
+
+
+{-| -}
+edges : SelectionSet decodesTo Pages.Object.StargazerEdge -> SelectionSet (List decodesTo) Pages.Object.StargazerConnection
+edges object_ =
+    Object.selectionForCompositeField "edges" [] object_ (identity >> Decode.list)
+
+
+{-| -}
+pageInfo : SelectionSet decodesTo Pages.Object.PageInfo -> SelectionSet decodesTo Pages.Object.StargazerConnection
+pageInfo object_ =
+    Object.selectionForCompositeField "pageInfo" [] object_ identity
+
+
+{-| -}
+totalCount : SelectionSet Int Pages.Object.StargazerConnection
+totalCount =
+    Object.selectionForField "Int" "totalCount" [] Decode.int

examples/gen/Pages/Object/StargazerEdge.elm

@@ -0,0 +1,31 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Object.StargazerEdge exposing (cursor, node)
+
+import Graphql.Internal.Builder.Argument as Argument exposing (Argument)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode as Encode exposing (Value)
+import Graphql.Operation exposing (RootMutation, RootQuery, RootSubscription)
+import Graphql.OptionalArgument exposing (OptionalArgument(..))
+import Graphql.SelectionSet exposing (SelectionSet)
+import Json.Decode as Decode
+import Pages.InputObject
+import Pages.Interface
+import Pages.Object
+import Pages.Scalar
+import Pages.ScalarCodecs
+import Pages.Union
+
+
+{-| -}
+cursor : SelectionSet String Pages.Object.StargazerEdge
+cursor =
+    Object.selectionForField "String" "cursor" [] Decode.string
+
+
+{-| -}
+node : SelectionSet decodesTo Pages.Object.User -> SelectionSet decodesTo Pages.Object.StargazerEdge
+node object_ =
+    Object.selectionForCompositeField "node" [] object_ identity

examples/gen/Pages/Object/User.elm

@@ -0,0 +1,25 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Object.User exposing (name)
+
+import Graphql.Internal.Builder.Argument as Argument exposing (Argument)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode as Encode exposing (Value)
+import Graphql.Operation exposing (RootMutation, RootQuery, RootSubscription)
+import Graphql.OptionalArgument exposing (OptionalArgument(..))
+import Graphql.SelectionSet exposing (SelectionSet)
+import Json.Decode as Decode
+import Pages.InputObject
+import Pages.Interface
+import Pages.Object
+import Pages.Scalar
+import Pages.ScalarCodecs
+import Pages.Union
+
+
+{-| -}
+name : SelectionSet String Pages.Object.User
+name =
+    Object.selectionForField "String" "name" [] Decode.string

examples/gen/Pages/Query.elm

@@ -0,0 +1,56 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Query exposing (StargazersOptionalArguments, stargazers)
+
+import Graphql.Internal.Builder.Argument as Argument exposing (Argument)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode as Encode exposing (Value)
+import Graphql.Operation exposing (RootMutation, RootQuery, RootSubscription)
+import Graphql.OptionalArgument exposing (OptionalArgument(..))
+import Graphql.Paginator as Paginator exposing (Paginator)
+import Graphql.SelectionSet exposing (SelectionSet)
+import Json.Decode as Decode exposing (Decoder)
+import Pages.InputObject
+import Pages.Interface
+import Pages.Object
+import Pages.Object.StargazerConnection
+import Pages.Scalar
+import Pages.ScalarCodecs
+import Pages.Union
+
+
+type alias StargazersOptionalArguments =
+    { after : OptionalArgument String
+    , before : OptionalArgument String
+    , first : OptionalArgument Int
+    , last : OptionalArgument Int
+    }
+
+
+{-|
+
+  - after -
+  - before -
+  - first -
+  - last -
+
+-}
+stargazers :
+    Int
+    -> Paginator direction decodesTo
+    -> (StargazersOptionalArguments -> StargazersOptionalArguments)
+    -> SelectionSet decodesTo Pages.Object.StargazerEdge
+    -> SelectionSet (Paginator direction decodesTo) Pages.Object.User
+stargazers pageSize paginator fillInOptionals object_ =
+    let
+        filledInOptionals =
+            fillInOptionals { first = Absent, after = Absent, last = Absent, before = Absent }
+                |> Paginator.addPageInfo pageSize paginator
+
+        optionalArgs =
+            [ Argument.optional "first" filledInOptionals.first Encode.int, Argument.optional "after" filledInOptionals.after Encode.string, Argument.optional "last" filledInOptionals.last Encode.int, Argument.optional "before" filledInOptionals.before Encode.string ]
+                |> List.filterMap identity
+    in
+    Object.selectionForCompositeField "stargazers" optionalArgs (Paginator.selectionSet pageSize paginator (Pages.Object.StargazerConnection.edges object_)) identity

examples/gen/Pages/Scalar.elm

@@ -0,0 +1,50 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Scalar exposing (Codecs, Upload(..), defaultCodecs, defineCodecs, unwrapCodecs, unwrapEncoder)
+
+import Graphql.Codec exposing (Codec)
+import Graphql.Internal.Builder.Object as Object
+import Graphql.Internal.Encode
+import Json.Decode as Decode exposing (Decoder)
+import Json.Encode as Encode
+
+
+type Upload
+    = Upload String
+
+
+defineCodecs :
+    { codecUpload : Codec valueUpload }
+    -> Codecs valueUpload
+defineCodecs definitions =
+    Codecs definitions
+
+
+unwrapCodecs :
+    Codecs valueUpload
+    -> { codecUpload : Codec valueUpload }
+unwrapCodecs (Codecs unwrappedCodecs) =
+    unwrappedCodecs
+
+
+unwrapEncoder getter (Codecs unwrappedCodecs) =
+    (unwrappedCodecs |> getter |> .encoder) >> Graphql.Internal.Encode.fromJson
+
+
+type Codecs valueUpload
+    = Codecs (RawCodecs valueUpload)
+
+
+type alias RawCodecs valueUpload =
+    { codecUpload : Codec valueUpload }
+
+
+defaultCodecs : RawCodecs Upload
+defaultCodecs =
+    { codecUpload =
+        { encoder = \(Upload raw) -> Encode.string raw
+        , decoder = Object.scalarDecoder |> Decode.map Upload
+        }
+    }

examples/gen/Pages/ScalarCodecs.elm

@@ -0,0 +1,19 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.ScalarCodecs exposing (Upload, codecs)
+
+import Json.Decode as Decode exposing (Decoder)
+import Pages.Scalar exposing (defaultCodecs)
+
+
+type alias Upload =
+    Pages.Scalar.Upload
+
+
+codecs : Pages.Scalar.Codecs Upload
+codecs =
+    Pages.Scalar.defineCodecs
+        { codecUpload = defaultCodecs.codecUpload
+        }

examples/gen/Pages/Union.elm

@@ -0,0 +1,10 @@
+-- Do not manually edit this file, it was auto-generated by dillonkearns/elm-graphql
+-- https://github.com/dillonkearns/elm-graphql
+
+
+module Pages.Union exposing (placeholder)
+
+
+placeholder : String
+placeholder =
+    ""