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

test: fix compiler warnings

Browse Source
This commit is contained in:
Ben Sima 2020-10-12 11:59:20 -04:00
parent 0da4659782
commit e62eb52d00
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test.hs
View File

@ -8,20 +8,16 @@ import Control.Exception (SomeException (..), try)
import Control.Lens ((^?))
import Data.Aeson (KeyValue ((.=)))
import qualified Data.Aeson as Aeson
import qualified Data.Char as Char
import Data.Maybe (isJust)
import Data.Text (Text)
import qualified Data.Text as Text
import qualified Data.Text.IO as Text.IO
import qualified Data.UUID as UUID
import qualified Data.UUID.V4 as UUID
import qualified Data.Word as Word
import qualified Network.Wreq as Wreq
import qualified Network.Wreq.Session as Session
import qualified Numeric
import qualified System.Environment as Env
import qualified System.Exit as Exit
import qualified System.Random as Random
import Urbit.Airlock
main :: IO ()
@ -37,7 +33,7 @@ main = do
testing "poke ship" $
isJust <$> do
uid <- UUID.nextRandom
uuid <- UUID.nextRandom
r <-
poke sess ship "zod" "chat-hook" "json" $
Aeson.object
@ -46,7 +42,7 @@ main = do
[ "path" .= Text.pack "/~/~zod/mc",
"envelope"
.= Aeson.object
[ "uid" .= UUID.toText uid,
[ "uid" .= UUID.toText uuid,
"number" .= (1 :: Int), -- FIXME: should this be lastEventId?
"author" .= Text.pack "~zod",
"when" .= (1602118786225 :: Int),