diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -64,6 +64,10 @@ data Activity a = Activity } deriving (Show, Generic) +-- | Used when a value has had its hashes erased for more efficient +-- transfer over the wire. +data MissingHashes a = MissingHashes a + instance DataSize a => DataSize (Activity a) where dataSize a = dataSize (activity a) + maybe 0 dataSize (prevActivity a) |