Make sure alexScanUser is inlined

haskell · Dec 30, 2024 · 837d2ba · 837d2ba
1 parent a71aa7f
commit 837d2ba
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/data/AlexTemplate.hs b/data/AlexTemplate.hs
@@ -96,6 +96,11 @@ data AlexReturn a
 alexScan input__ IBOX(sc)
   = alexScanUser (error "alex rule requiring context was invoked by alexScan; use alexScanUser instead?") input__ IBOX(sc)
 
+-- If the generated alexScan/alexScanUser functions are called multiple times
+-- in the same file, alexScanUser gets broken out into a separate function and
+-- increases memory usage. Make sure GHC inlines this function and optimizes it.
+{-# INLINE alexScanUser #-}
+
 alexScanUser user__ input__ IBOX(sc)
   = case alex_scan_tkn user__ input__ ILIT(0) input__ sc AlexNone of
   (AlexNone, input__') ->