diff --git a/antiope-messages.cabal b/antiope-messages.cabal
--- a/antiope-messages.cabal
+++ b/antiope-messages.cabal
@@ -1,7 +1,7 @@
 cabal-version: 2.4
 
 name:                   antiope-messages
-version:                7.4.2
+version:                7.4.3
 synopsis:               Please see the README on Github at <https://github.com/arbor/antiope#readme>
 description:            Please see the README on Github at <https://github.com/arbor/antiope#readme>.
 category:               Services
diff --git a/test/Antiope/Messages/MessagesSpec.hs b/test/Antiope/Messages/MessagesSpec.hs
--- a/test/Antiope/Messages/MessagesSpec.hs
+++ b/test/Antiope/Messages/MessagesSpec.hs
@@ -1,23 +1,20 @@
 {-# LANGUAGE DataKinds        #-}
 {-# LANGUAGE TypeApplications #-}
 module Antiope.Messages.MessagesSpec
-where
+  ( spec
+  ) where
 
 import Antiope.Messages
-import Data.Aeson       (decode, encode, (.=))
-import Data.Monoid      ((<>))
-import Data.Scientific  (fromFloatDigits)
-import Data.Text        (Text, pack)
-
-import qualified Data.Aeson as Aeson
-import qualified Data.Text  as Text
-
+import Data.Aeson                  (decode, encode, (.=))
+import Data.Scientific             (fromFloatDigits)
 import HaskellWorks.Hspec.Hedgehog
 import Hedgehog
 import Hedgehog.Gen                as Gen
 import Hedgehog.Range              as Range
 import Test.Hspec
 
+import qualified Data.Aeson as Aeson
+
 {-# ANN module ("HLint: Ignore Redundant do" :: String) #-}
 
 jsonObject :: MonadGen m => m Aeson.Value
@@ -32,7 +29,6 @@
     jsonNumber  = (Aeson.Number . fromFloatDigits) <$> Gen.double (Range.linearFrac (-32000.0) 32000.0)
     jsonBool    = Aeson.Bool <$> Gen.bool
     jsonNull    = pure Aeson.Null
-
 
 spec :: Spec
 spec = describe "Antiope.Core.MessagesSpec" $ do