diff options
| -rw-r--r-- | src/Data/Dependent/EnumMap/Strict/Internal.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Data/Dependent/EnumMap/Strict/Internal.hs b/src/Data/Dependent/EnumMap/Strict/Internal.hs index b2bef1a..f7128f2 100644 --- a/src/Data/Dependent/EnumMap/Strict/Internal.hs +++ b/src/Data/Dependent/EnumMap/Strict/Internal.hs @@ -257,6 +257,7 @@ alterF f k (DEnumMap m) = DEnumMap <$> IM.alterF f' i m -- ** Lookup lookup :: (Enum1 k, TestEquality k) => k a -> DEnumMap k v -> Maybe (v a) +{-# INLINEABLE lookup #-} lookup k (DEnumMap m) = let (i, _) = fromEnum1 k in (\(KV inf v) -> case typeCheck1 k i inf of |