From a8893fbcfa06044e7f999916c4dcc6a2dc907f75 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 29 Jan 2023 20:00:29 +0100 Subject: Pairing: use empty record item for reject message --- src/Pairing.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Pairing.hs') 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 -- cgit v1.2.3