From 86625293a7b2242dd9761e558eb92469e18e20a8 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 12 Oct 2020 10:11:33 -0400
Subject: [PATCH] fix some of the test json

---
 test.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test.hs b/test.hs
index 385f074..b3a9b70 100644
--- a/test.hs
+++ b/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