diff --git a/src/M/Reg.hs b/src/M/Reg.hs
index 97fff79..26b39b4 100644
--- a/src/M/Reg.hs
+++ b/src/M/Reg.hs
@@ -155,3 +155,4 @@ lkcodebyid i Reg {regic} = H.lookup i regic
 -- @
 lkobjbyid :: Text -> Reg a -> Maybe a
 lkobjbyid i r = lkcodebyid i r >>= (`lkobjbycode` r)
+{-# INLINE lkobjbyid #-}