Merge pull request #159 from josephcsible/patch-1

simonmar · web-flow · commit 25c8c6d2fd24 · 2020-02-24T07:58:57.000Z
Remove pointless lctx'
diff --git a/src/NFA.hs b/src/NFA.hs
@@ -111,11 +111,7 @@ scanner2nfa enc Scanner{scannerTokens = toks} startcodes
                                         accept r_e rctxt_accept
                                         return (RightContextRExp r_b)
 
-                let lctx' = case lctx of
-                                  Nothing -> Nothing
-                                  Just st -> Just st
-
-                accept e (Acc prio code lctx' rctx_e)
+                accept e (Acc prio code lctx rctx_e)
                 return b
 
           tok_transitions toks_with_states start_code start_state = do
