From b9f905a7d1571471200328d0b5062052c76b4e53 Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Thu, 29 Jan 2026 00:43:04 +0100
Subject: Add an INLINEABLE pragma that GHC warns about when one uses this
 library

---
 src/Data/Dependent/EnumMap/Strict/Internal.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Data/Dependent/EnumMap')

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
-- 
cgit v1.2.3-70-g09d2