diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 12:54:26 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 12:54:26 +0200 |
| commit | 7bd06e2ed8145ba28615fa14ae90601a6ba0a098 (patch) | |
| tree | 54718e0fd3f93c683210042321a2dda04e2901a0 | |
| parent | 15940dd4f281fd76162d9f33c36abb64ffdb303c (diff) | |
Apply some suggestions form hlint
| -rw-r--r-- | src/Data/Dependent/EnumMap/Strict/Internal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Dependent/EnumMap/Strict/Internal.hs b/src/Data/Dependent/EnumMap/Strict/Internal.hs index 2735620..f45d22e 100644 --- a/src/Data/Dependent/EnumMap/Strict/Internal.hs +++ b/src/Data/Dependent/EnumMap/Strict/Internal.hs @@ -299,11 +299,11 @@ unionWithKey f (DEnumMap m1 :: DEnumMap k v) (DEnumMap m2) = DEnumMap (IM.unionW Some k1 -> typeCheck1 k1 i inf2 $ KV inf1 (f k1 (coe1 v1) (coe1 v2)) unions :: (Foldable f, Enum1 k, TestEquality k) => f (DEnumMap k v) -> DEnumMap k v -unions xs = Foldable.foldl' union empty xs +unions = Foldable.foldl' union empty unionsWith :: (Foldable f, Enum1 k, TestEquality k) => (forall a. v a -> v a -> v a) -> f (DEnumMap k v) -> DEnumMap k v -unionsWith f xs = Foldable.foldl' (unionWith f) empty xs +unionsWith f = Foldable.foldl' (unionWith f) empty -- ** Difference |