Commit bef1f612 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[BUG] with Array.null case

parent 6ffee35a
...@@ -44,10 +44,14 @@ instance isHashableString :: IsHashable String ...@@ -44,10 +44,14 @@ instance isHashableString :: IsHashable String
------------------------------------------------------------------------ ------------------------------------------------------------------------
instance isHashableArrayHashDone :: IsHashable (Array HashDone) instance isHashableArrayHashDone :: IsHashable (Array HashDone)
where where
hash'' x = hash'' $ Set.fromFoldable x hash'' x = if Array.null x
then hash'' $ (Set.fromFoldable Set.empty :: Set HashDone)
else hash'' $ Set.fromFoldable x
else instance isHashableArray :: (Crypto.Hashable a, IsHashable a) => IsHashable (Array a) else instance isHashableArray :: (Crypto.Hashable a, IsHashable a) => IsHashable (Array a)
where where
hash'' x = hash'' $ map hash x hash'' x = if Array.null x
then hash'' $ (Set.fromFoldable Set.empty :: Set HashDone)
else hash'' $ map hash x
------------------------------------------------------------------------ ------------------------------------------------------------------------
instance isHashableSetHashDone :: IsHashable (Set HashDone) where instance isHashableSetHashDone :: IsHashable (Set HashDone) where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment