Pairing: use empty record item for reject message

1 files changed, 2 insertions, 3 deletions

diff --git a/src/Pairing.hs b/src/Pairing.hs
index 3af3435..a264c42 100644
--- a/src/Pairing.hs
+++ b/src/Pairing.hs
@@ -21,7 +21,6 @@ import qualified Data.ByteArray as BA
 import qualified Data.ByteString.Char8 as BC
 import Data.Kind
 import Data.Maybe
-import qualified Data.Text as T
 import Data.Typeable
 import Data.Word
 
@@ -83,7 +82,7 @@ instance Storable a => Storable (PairingService a) where
     store' (PairingResponse x) = storeRec $ storeBinary "response" x
     store' (PairingRequestNonce x) = storeRec $ storeBinary "reqnonce" x
     store' (PairingAccept x) = store' x
-    store' (PairingReject) = storeRec $ storeText "reject" ""
+    store' (PairingReject) = storeRec $ storeEmpty "reject"
 
     load' = do
         res <- loadRec $ do
@@ -92,7 +91,7 @@ instance Storable a => Storable (PairingService a) where
             idRsp <- loadMbRef "id-rsp"
             rsp <- loadMbBinary "response"
             rnonce <- loadMbBinary "reqnonce"
-            (rej :: Maybe T.Text) <- loadMbText "reject"
+            rej <- loadMbEmpty "reject"
             return $ catMaybes
                     [ PairingRequest <$> idReq <*> idRsp <*> (refDigestFromByteString =<< req)
                     , PairingResponse <$> rsp