diff options
Diffstat (limited to 'Hash.hs')
-rw-r--r-- | Hash.hs | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -35,8 +35,8 @@ instance Hashable a => Hashable (Tagged a) where hash (Tagged b a) = hash [hash b, hash a] instance Hashable a => Hashable (Activity a) where - hash (Activity a mp s) = hash $ Tagged "Activity" - [hash a, hash mp, hash s] + hash (Activity a mp mt s) = hash $ Tagged "Activity" + [hash a, hash mp, hash mt, hash s] instance Hashable Entered where hash v = hash $ Tagged "Entered" @@ -62,6 +62,9 @@ instance Hashable PublicKey where instance Hashable GpgSig where hash (GpgSig v) = hash $ Tagged "GpgSig" v +instance Hashable ElapsedTime where + hash (ElapsedTime n) = hash $ Tagged "ElapsedTime" $ C8.pack $ show n + -- | Hash a list of hashes by hashing the concacenation of the hashes. instance Hashable [Hash] where hash = hash . B.concat . map (val . hashValue) |