From e62eb52d00970d9320c37a10e2a1028dbc6fc701 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 12 Oct 2020 11:59:20 -0400 Subject: [PATCH] test: fix compiler warnings --- test.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/test.hs b/test.hs index f39cbc2..cd6ee4e 100644 --- a/test.hs +++ b/test.hs @@ -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),