From f436b5c5aa1aed721f62d9255b6381dea2913778 Mon Sep 17 00:00:00 2001 From: axionbuster Date: Fri, 17 Jan 2025 16:54:10 -0800 Subject: [PATCH] oops, forgot to inline lkobjbyid --- src/M/Reg.hs | 1 + 1 file changed, 1 insertion(+) 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 #-}