diff --git a/src/Data/ByteString/Base16/Internal/W16/Loop.hs b/src/Data/ByteString/Base16/Internal/W16/Loop.hs index bab3d88..7ea553e 100644 --- a/src/Data/ByteString/Base16/Internal/W16/Loop.hs +++ b/src/Data/ByteString/Base16/Internal/W16/Loop.hs @@ -158,4 +158,4 @@ lenientLoop !dfp !dptr !sptr !end !nn = goHi dptr sptr nn else do poke dst (a .|. b) goHi (plusPtr dst 1) (plusPtr src 1) (n + 1) -{-# LANGUAGE lenientLoop #-} +{-# INLINE lenientLoop #-}