bsima/haskell-urbit-api
1
1
Fork 0
mirror of https://github.com/bsima/haskell-urbit-api.git synced 2024-08-17 14:00:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix some of the test json

Browse Source
This commit is contained in:
Ben Sima 2020-10-12 10:11:33 -04:00
parent 3229641462
commit 86625293a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test.hs
View File

@ -44,9 +44,9 @@ main = do
"envelope"
.= Aeson.object
[ "uid" .= UUID.toText uid,
"number" .= lastEventId ship,
"number" .= (1 :: Int), -- FIXME: should this be lastEventId?
"author" .= Text.pack "~zod",
"when" .= Text.pack "1602118786225.497", -- int(time.time() * 1000)
"when" .= (1602118786225 :: Int),
"letter" .= Aeson.object ["text" .= Text.pack "hello world!"]
]
]
@ -64,7 +64,7 @@ fakezod =
Ship
{ uid = "0123456789abcdef",
name = "zod",
lastEventId = 0,
lastEventId = 1,
url = "http://localhost:8081",
code = "lidlut-tabwed-pillex-ridrup",
sseClient = False