git.iko.soy/streamly
on master help sign in
Fix Hashable Eq constraint issue (#2422)
66c349cRanjeet Ranjan
src/Streamly/Internal/Data/IsMap/HashMap.hs+4
compare with master
unifiedsplit
@@ -20,7 +20,11 @@ import Streamly.Internal.Data.IsMap (IsMap(..))
20
20
21import qualified Data.HashMap.Strict as HashMap
21import qualified Data.HashMap.Strict as HashMap
22
22
23+#if MIN_VERSION_hashable(1,4,0)
23instance (Hashable k) => IsMap (HashMap.HashMap k) where
24instance (Hashable k) => IsMap (HashMap.HashMap k) where
25+#else
26+instance (Hashable k, Eq k) => IsMap (HashMap.HashMap k) where
27+#endif
24 type Key (HashMap.HashMap k) = k
28 type Key (HashMap.HashMap k) = k
25
29
26 mapEmpty = HashMap.empty
30 mapEmpty = HashMap.empty