dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 04:43:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Extract value.

Browse Source
This commit is contained in:
Dillon Kearns 2022-03-19 13:22:40 -07:00
parent c72dfc8010
commit 339b3c3387
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/end-to-end/tests/Tests.elm
View File

@ -123,6 +123,10 @@ start initialPath dataSourceSimulator =
|> String.join ";"
)
requestTime : ( String, Encode.Value )
requestTime =
( "requestTime", Encode.int 0 )
rawUrl : ( String, Encode.Value )
rawUrl =
( "rawUrl"
@ -138,7 +142,7 @@ start initialPath dataSourceSimulator =
RequestsAndPending.Response Nothing
(RequestsAndPending.JsonBody
(Encode.object
[ ( "requestTime", Encode.int 0 )
[ requestTime
, ( "headers"
, Encode.dict identity
Encode.string
@ -162,7 +166,7 @@ start initialPath dataSourceSimulator =
RequestsAndPending.Response Nothing
(RequestsAndPending.JsonBody
(Encode.object
[ ( "requestTime", Encode.int 0 )
[ requestTime
, ( "headers"
, Encode.dict identity
Encode.string