Skip to content

Commit 496077b

Browse files
committed
Update elm-pages bindings
1 parent 6bc55f3 commit 496077b

2 files changed

Lines changed: 109 additions & 5 deletions

File tree

‎codegen/elm.codegen.json‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
"elm/json": "1.1.3",
99
"elm-community/json-extra": "4.3.0",
1010
"elm/url": "1.0.0",
11-
"dillonkearns/elm-pages": "10.1.0",
11+
"dillonkearns/elm-pages": "11.0.0",
1212
"justinmimbs/time-extra": "1.2.0",
1313
"justinmimbs/date": "4.1.0",
1414
"elm/time": "1.0.0",

‎src/Gen/BackendTask/Http.elm‎

Lines changed: 108 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,7 @@
11
module Gen.BackendTask.Http exposing
22
( expectString, expectJson
33
, expectBytes, emptyBody, jsonBody
4-
, annotation_
5-
, call_
4+
, annotation_, call_
65
, bytesBody
76
)
87

@@ -13,8 +12,8 @@ module Gen.BackendTask.Http exposing
1312
1413
@docs get, expectString, expectJson
1514
@docs expectBytes, emptyBody, jsonBody
16-
@docs bytesBodyWithOptions, annotation_
17-
@docs call_
15+
@docs bytesBodyWithOptions
16+
@docs annotation_, call_
1817
1918
-}
2019

@@ -187,6 +186,7 @@ annotation_ :
187186
{ expect : Type.Annotation -> Type.Annotation
188187
, error : Type.Annotation
189188
, body : Type.Annotation
189+
, part : Type.Annotation
190190
, cacheStrategy : Type.Annotation
191191
, metadata : Type.Annotation
192192
}
@@ -201,6 +201,7 @@ annotation_ =
201201
"Body"
202202
[]
203203
(Type.namedWith [ "Pages", "Internal", "StaticHttpBody" ] "Body" [])
204+
, part = Type.namedWith [ "BackendTask", "Http" ] "Part" []
204205
, cacheStrategy =
205206
Type.namedWith [ "BackendTask", "Http" ] "CacheStrategy" []
206207
, metadata =
@@ -235,6 +236,16 @@ call_ :
235236
, stringBody : Elm.Expression -> Elm.Expression -> Elm.Expression
236237
, jsonBody : Elm.Expression -> Elm.Expression
237238
, bytesBody : Elm.Expression -> Elm.Expression -> Elm.Expression
239+
, multipartBody : Elm.Expression -> Elm.Expression
240+
, stringPart : Elm.Expression -> Elm.Expression -> Elm.Expression
241+
, bytesPart :
242+
Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
243+
, bytesPartWithFilename :
244+
Elm.Expression
245+
-> Elm.Expression
246+
-> Elm.Expression
247+
-> Elm.Expression
248+
-> Elm.Expression
238249
, getWithOptions : Elm.Expression -> Elm.Expression
239250
, withMetadata : Elm.Expression -> Elm.Expression -> Elm.Expression
240251
}
@@ -542,6 +553,99 @@ call_ =
542553
}
543554
)
544555
[ bytesBodyArg_, bytesBodyArg_0 ]
556+
, multipartBody =
557+
\multipartBodyArg_ ->
558+
Elm.apply
559+
(Elm.value
560+
{ importFrom = [ "BackendTask", "Http" ]
561+
, name = "multipartBody"
562+
, annotation =
563+
Just
564+
(Type.function
565+
[ Type.list
566+
(Type.namedWith
567+
[ "BackendTask", "Http" ]
568+
"Part"
569+
[]
570+
)
571+
]
572+
(Type.namedWith
573+
[ "BackendTask", "Http" ]
574+
"Body"
575+
[]
576+
)
577+
)
578+
}
579+
)
580+
[ multipartBodyArg_ ]
581+
, stringPart =
582+
\stringPartArg_ stringPartArg_0 ->
583+
Elm.apply
584+
(Elm.value
585+
{ importFrom = [ "BackendTask", "Http" ]
586+
, name = "stringPart"
587+
, annotation =
588+
Just
589+
(Type.function
590+
[ Type.string, Type.string ]
591+
(Type.namedWith
592+
[ "BackendTask", "Http" ]
593+
"Part"
594+
[]
595+
)
596+
)
597+
}
598+
)
599+
[ stringPartArg_, stringPartArg_0 ]
600+
, bytesPart =
601+
\bytesPartArg_ bytesPartArg_0 bytesPartArg_1 ->
602+
Elm.apply
603+
(Elm.value
604+
{ importFrom = [ "BackendTask", "Http" ]
605+
, name = "bytesPart"
606+
, annotation =
607+
Just
608+
(Type.function
609+
[ Type.string
610+
, Type.string
611+
, Type.namedWith [ "Bytes" ] "Bytes" []
612+
]
613+
(Type.namedWith
614+
[ "BackendTask", "Http" ]
615+
"Part"
616+
[]
617+
)
618+
)
619+
}
620+
)
621+
[ bytesPartArg_, bytesPartArg_0, bytesPartArg_1 ]
622+
, bytesPartWithFilename =
623+
\bytesPartWithFilenameArg_ bytesPartWithFilenameArg_0 bytesPartWithFilenameArg_1 bytesPartWithFilenameArg_2 ->
624+
Elm.apply
625+
(Elm.value
626+
{ importFrom = [ "BackendTask", "Http" ]
627+
, name = "bytesPartWithFilename"
628+
, annotation =
629+
Just
630+
(Type.function
631+
[ Type.string
632+
, Type.string
633+
, Type.string
634+
, Type.namedWith [ "Bytes" ] "Bytes" []
635+
]
636+
(Type.namedWith
637+
[ "BackendTask", "Http" ]
638+
"Part"
639+
[]
640+
)
641+
)
642+
}
643+
)
644+
[ bytesPartWithFilenameArg_
645+
, bytesPartWithFilenameArg_0
646+
, bytesPartWithFilenameArg_1
647+
, bytesPartWithFilenameArg_2
648+
]
545649
, getWithOptions =
546650
\getWithOptionsArg_ ->
547651
Elm.apply

0 commit comments

Comments
 (0)