diff --git a/hexstring.cabal b/hexstring.cabal
index 29978a7..827db89 100644
--- a/hexstring.cabal
+++ b/hexstring.cabal
@@ -31,6 +31,7 @@ library
                      , text
                      , bytestring
                      , base16-bytestring
+                     , aeson
 
 test-suite test-suite
   type:                exitcode-stdio-1.0
diff --git a/src/Data/HexString.hs b/src/Data/HexString.hs
index 9568130..8b1c276 100644
--- a/src/Data/HexString.hs
+++ b/src/Data/HexString.hs
@@ -6,10 +6,13 @@ module Data.HexString ( HexString
                       , toBytes
                       , toText ) where
 
-import           Data.Word                   (Word8)
+import           Control.Applicative    (pure)
+
+import           Data.Aeson
+import           Data.Word              (Word8)
 
-import qualified Data.ByteString.Base16 as BS16 (decode, encode)
 import qualified Data.ByteString        as BS
+import qualified Data.ByteString.Base16 as BS16 (decode, encode)
 import qualified Data.ByteString.Lazy   as BSL
 
 import qualified Data.Text              as T
@@ -23,6 +26,12 @@ data HexString =
   HexString BS.ByteString
   deriving ( Show, Eq, Ord )
 
+instance FromJSON HexString where
+  parseJSON = withText "HexString" $ pure . hexString . TE.encodeUtf8
+
+instance ToJSON HexString where
+  toJSON = String . toText
+
 -- | Smart constructor which validates that all the text are actually
 --   hexadecimal characters.
 hexString :: BS.ByteString -> HexString