Add support for Megaparsec 5.2.0

mrkkrp · Feb 1, 2017 · 40587e9 · 40587e9
1 parent 84a8aba
commit 40587e9
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,4 +1,8 @@
-## Hspec Megaparec 0.3.0
+## Hspec Megaparsec 0.3.1
+
+* Support for Megaparsec 5.2.0.
+
+## Hspec Megaparsec 0.3.0
 
 * Added helpers for parse error construction (useful with `shouldFailWith`):
   `err`, `posI`, `posN`, `utok`, `utoks`, `ulabel`, `ueof`, `etok`, `etoks`,

diff --git a/Test/Hspec/Megaparsec.hs b/Test/Hspec/Megaparsec.hs
@@ -320,7 +320,13 @@ succeedsLeaving :: ( ShowToken (Token s)
 -- column).
 
 initialState :: s -> State s
-initialState s = State s (initialPos "" :| []) defaultTabWidth
+initialState s = State
+  { stateInput           = s
+  , statePos             = initialPos "" :| []
+#if MIN_VERSION_megaparsec(5,2,0)
+  , stateTokensProcessed = 0
+#endif
+  , stateTabWidth        = defaultTabWidth }
 
 ----------------------------------------------------------------------------
 -- Helpers