mirror of
https://github.com/bsima/haskell-urbit-api.git
synced 2024-09-11 18:27:08 +03:00
fix some of the test json
This commit is contained in:
parent
3229641462
commit
86625293a7
6
test.hs
6
test.hs
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user