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/Storage.hs | |
| parent | dd4c6aeae1cf30035f3c7c3d52e58082f6b7aa36 (diff) | |
Load and announce identity updates
Diffstat (limited to 'src/Storage.hs')
| -rw-r--r-- | src/Storage.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Storage.hs b/src/Storage.hs index 1cf5cd4..fbccefc 100644 --- a/src/Storage.hs +++ b/src/Storage.hs @@ -28,6 +28,7 @@ module Storage ( storeMbInt, storeMbNum, storeMbText, storeMbBinary, storeMbDate, storeMbJson, storeMbRef, storeZRef, + LoadRec, loadBlob, loadRec, loadZero, loadInt, loadNum, loadText, loadBinary, loadDate, loadJson, loadRef, loadMbInt, loadMbNum, loadMbText, loadMbBinary, loadMbDate, loadMbJson, loadMbRef, @@ -719,17 +720,8 @@ loadZRef name = loadMbRef name >>= \case Just x -> return x -data Stored' c a = Stored (Ref' c) a - deriving (Show) - type Stored a = Stored' Complete a -instance Eq (Stored a) where - Stored r1 _ == Stored r2 _ = refDigest r1 == refDigest r2 - -instance Ord (Stored a) where - compare (Stored r1 _) (Stored r2 _) = compare (refDigest r1) (refDigest r2) - instance Storable a => Storable (Stored a) where store st = copyRef st . storedRef store' (Stored _ x) = store' x |