From 0082c427edabc5d5266894ea9cd2f78b800f7c8a Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Sat, 26 Oct 2019 19:01:31 +0000
Subject: [PATCH] Fix nfa evaluation

---
 src/Rextra/Nfa.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rextra/Nfa.hs b/src/Rextra/Nfa.hs
index 3c8674c..9649135 100644
--- a/src/Rextra/Nfa.hs
+++ b/src/Rextra/Nfa.hs
@@ -189,7 +189,7 @@ accepting nfa ns = not $ Set.disjoint ns (exitStates nfa)
 
 execute :: (Ord s, Ord t) => Nfa s t -> [t] -> Bool
 execute nfa tokens =
-  let finalNdState = foldr (transition nfa) (entryNdState nfa) tokens
+  let finalNdState = foldl' (flip $ transition nfa) (entryNdState nfa) tokens
   in  accepting nfa finalNdState
 
 {-