From a70628457a5ceccd37d1ba2e1791d4493b5a0502 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 25 Nov 2019 22:15:05 +0100 Subject: Load and announce identity updates --- src/PubKey.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/PubKey.hs') diff --git a/src/PubKey.hs b/src/PubKey.hs index 8f39bf1..483a94b 100644 --- a/src/PubKey.hs +++ b/src/PubKey.hs @@ -85,11 +85,11 @@ instance Storable Signature where instance Storable a => Storable (Signed a) where store' sig = storeRec $ do - storeRef "data" $ signedData sig + storeRef "SDATA" $ signedData sig mapM_ (storeRef "sig") $ signedSignature sig load' = loadRec $ do - sdata <- loadRef "data" + sdata <- loadRef "SDATA" sigs <- loadRefs "sig" forM_ sigs $ \sig -> do let PublicKey pubkey = fromStored $ sigKey $ fromStored sig -- cgit v1.2.3