From 58a7f5379e4d9f8a8a3676fe058947ab30340e65 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 22 Jul 2024 15:18:48 +0200 Subject: Code style --- src/Data/Dependent/EnumMap/Strict.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/Dependent/EnumMap/Strict.hs b/src/Data/Dependent/EnumMap/Strict.hs index 21db518..6e1e9d6 100644 --- a/src/Data/Dependent/EnumMap/Strict.hs +++ b/src/Data/Dependent/EnumMap/Strict.hs @@ -106,8 +106,8 @@ lookup k (DEnumMap m) = (\(KV _ v) -> coe1 v) <$> IM.lookup (fst (fromEnum1 k)) findWithDefault :: Enum1 k => v a -> k a -> DEnumMap k v -> v a findWithDefault def k (DEnumMap m) = - (\(KV _ v) -> coe1 v) $ - IM.findWithDefault (KV undefined def) (fst (fromEnum1 k)) m + case IM.findWithDefault (KV undefined def) (fst (fromEnum1 k)) m of + KV _ v -> coe1 v member :: Enum1 k => k a -> DEnumMap k v -> Bool member k (DEnumMap m) = IM.member (fst (fromEnum1 k)) m -- cgit v1.2.3-70-g09d2