bsima/haskell-urbit-api
1
1
Fork 0
mirror of https://github.com/bsima/haskell-urbit-api.git synced 2024-09-11 18:27:08 +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 Control.Lens ((^?))
import Data.Aeson (KeyValue ((.=))) import Data.Aeson (KeyValue ((.=)))
import qualified Data.Aeson as Aeson import qualified Data.Aeson as Aeson
import qualified Data.Char as Char
import Data.Maybe (isJust) import Data.Maybe (isJust)
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as Text import qualified Data.Text as Text
import qualified Data.Text.IO as Text.IO import qualified Data.Text.IO as Text.IO
import qualified Data.UUID as UUID import qualified Data.UUID as UUID
import qualified Data.UUID.V4 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 as Wreq
import qualified Network.Wreq.Session as Session import qualified Network.Wreq.Session as Session
import qualified Numeric
import qualified System.Environment as Env import qualified System.Environment as Env
import qualified System.Exit as Exit import qualified System.Exit as Exit
import qualified System.Random as Random
import Urbit.Airlock import Urbit.Airlock
main :: IO () main :: IO ()
@ -37,7 +33,7 @@ main = do
testing "poke ship" $ testing "poke ship" $
isJust <$> do isJust <$> do
uid <- UUID.nextRandom uuid <- UUID.nextRandom
r <- r <-
poke sess ship "zod" "chat-hook" "json" $ poke sess ship "zod" "chat-hook" "json" $
Aeson.object Aeson.object
@ -46,7 +42,7 @@ main = do
[ "path" .= Text.pack "/~/~zod/mc", [ "path" .= Text.pack "/~/~zod/mc",
"envelope" "envelope"
.= Aeson.object .= Aeson.object
[ "uid" .= UUID.toText uid, [ "uid" .= UUID.toText uuid,
"number" .= (1 :: Int), -- FIXME: should this be lastEventId? "number" .= (1 :: Int), -- FIXME: should this be lastEventId?
"author" .= Text.pack "~zod", "author" .= Text.pack "~zod",
"when" .= (1602118786225 :: Int), "when" .= (1602118786225 :: Int),