import Prelude (String)
import Data.Set (Set)
-import Data.List (foldl)
import Data.Text (Text)
import Gargantext.Prelude
import qualified Data.ByteString.Lazy.Char8 as Char
instance IsHashable Text where
hash = hash . Text.unpack
+
instance IsHashable (Set Hash) where
hash = hash . foldl (<>) "" . Set.toList