From 7bd06e2ed8145ba28615fa14ae90601a6ba0a098 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 13 May 2025 12:54:26 +0200 Subject: Apply some suggestions form hlint --- src/Data/Dependent/EnumMap/Strict/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3-70-g09d2