diff options
Diffstat (limited to 'Hash.hs')
-rw-r--r-- | Hash.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -26,8 +26,8 @@ instance Hashable [HashPointer] where hash = hash . B.concat . map (val . hashValue) instance Hashable a => Hashable (Activity a) where - hash (Activity a p s) = hash [hash a, p, hash s] - hash (StartActivity a s) = hash [hash a, hash s] + hash (Activity a (Just p) s) = hash [hash a, p, hash s] + hash (Activity a Nothing s) = hash [hash a, hash s] instance Hashable Entered where hash v = hash [hash (enteredData v), hash (echoData v)] |