diff --git a/hriemann.cabal b/hriemann.cabal
--- a/hriemann.cabal
+++ b/hriemann.cabal
@@ -1,11 +1,13 @@
--- This file has been generated from package.yaml by hpack version 0.28.2.
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.33.0.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: ed0b77d5a3a65f31bc36787567f5c85d79d377531c21b752f395a62f27f71a53
+-- hash: 2947d7e33a64a743d8f7eb7a408e33dd35a16872749482aa16d4072cfb0fd274
 
 name:           hriemann
-version:        0.3.3.3
+version:        0.3.3.4
 synopsis:       A Riemann Client for Haskell
 description:    A Riemann Client for Haskell
 category:       Monitoring
@@ -17,7 +19,6 @@
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple
-cabal-version:  >= 1.10
 
 source-repository head
   type: git
diff --git a/src/Network/Monitoring/Riemann/Json.hs b/src/Network/Monitoring/Riemann/Json.hs
--- a/src/Network/Monitoring/Riemann/Json.hs
+++ b/src/Network/Monitoring/Riemann/Json.hs
@@ -1,39 +1,28 @@
 {-# LANGUAGE OverloadedLists #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module Network.Monitoring.Riemann.Json where
 
 import Control.Applicative ((<|>))
 import Data.Aeson
-  ( FromJSON
-  , ToJSON
-  , Value(String)
-  , (.!=)
-  , (.:)
-  , (.:?)
-  , parseJSON
-  , toJSON
-  , withObject
-  , withText
+  ( FromJSON,
+    ToJSON,
+    parseJSON,
+    withObject,
+    (.!=),
+    (.:),
+    (.:?),
   )
 import Data.Scientific (toBoundedInteger, toBoundedRealFloat)
-import qualified Data.Text as Text
 import Network.Monitoring.Riemann.Proto.Attribute (Attribute)
-import Network.Monitoring.Riemann.Proto.Event (Event(..))
-import Network.Monitoring.Riemann.Proto.Msg (Msg(..))
-import Network.Monitoring.Riemann.Proto.Query (Query(..))
-import Network.Monitoring.Riemann.Proto.State (State(..))
+import Network.Monitoring.Riemann.Proto.Event (Event (..))
+import Network.Monitoring.Riemann.Proto.Msg (Msg (..))
+import Network.Monitoring.Riemann.Proto.Query (Query (..))
+import Network.Monitoring.Riemann.Proto.State (State (..))
 import Prelude hiding (error)
-import qualified Text.ProtocolBuffers.Header as P'
-
-instance ToJSON P'.Utf8 where
-  toJSON v = String (Text.pack (P'.uToString v))
-
-instance FromJSON P'.Utf8 where
-  parseJSON = withText "Utf8 String" $ pure . P'.uFromString . Text.unpack
 
 instance ToJSON Attribute