diff options
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 |