diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2019-11-25 22:15:05 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2019-11-26 22:16:35 +0100 |
| commit | a70628457a5ceccd37d1ba2e1791d4493b5a0502 (patch) | |
| tree | 1daddb314ae7284f7e5c0c1e6308c19c681aedd1 /src/PubKey.hs | |
| parent | dd4c6aeae1cf30035f3c7c3d52e58082f6b7aa36 (diff) | |
Load and announce identity updates
Diffstat (limited to 'src/PubKey.hs')
| -rw-r--r-- | src/PubKey.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |