From 2b72ca3a8a74902043b16a1ea0be218dc3215417 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Sat, 22 Jul 2017 13:34:43 -0400
Subject: [PATCH] Inline runMany.

---
 src/Data/Syntax/Assignment.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Data/Syntax/Assignment.hs b/src/Data/Syntax/Assignment.hs
index f1e359b98..d8913beb5 100644
--- a/src/Data/Syntax/Assignment.hs
+++ b/src/Data/Syntax/Assignment.hs
@@ -306,6 +306,7 @@ runAssignment source toNode = go
                                 let (as, state'') = runMany rule state'
                                 in as `seq` (a : as, state'')
                             | otherwise -> ([a], state')
+        {-# INLINE runMany #-}
 
 dropAnonymous :: (Symbol grammar, Recursive ast) => (forall x. Base ast x -> Node grammar) -> AssignmentState ast grammar -> AssignmentState ast grammar
 dropAnonymous toNode state = state { stateNodes = dropWhile ((/= Regular) . symbolType . nodeSymbol . toNode . F.project) (stateNodes state) }