From: Julien Moutinho <julm@sourcephile.fr>
Date: Wed, 1 Apr 2020 02:23:13 +0000 (+0200)
Subject: Fix megaparsec-8 update
X-Git-Url: https://git.sourcephile.fr/doclang.git/commitdiff_plain?ds=sidebyside

Fix megaparsec-8 update
---

diff --git a/src/Textphile/DTC/Read/TCT.hs b/src/Textphile/DTC/Read/TCT.hs
index d01e86a..fad1d81 100644
--- a/src/Textphile/DTC/Read/TCT.hs
+++ b/src/Textphile/DTC/Read/TCT.hs
@@ -223,6 +223,7 @@ p_XMLs p stateInput = do
 	let (st', res) = P.runParser' (S.runStateT (p <* P.eof) s) P.State
 		 { P.stateInput  = stateInput
 		 , P.stateOffset = P.stateOffset st
+		 , P.stateParseErrors = []
 		 , P.statePosState = P.PosState
 			 { P.pstateInput      = stateInput
 			 , P.pstateOffset     = P.stateOffset st
diff --git a/src/Textphile/TCT/Read/Cell.hs b/src/Textphile/TCT/Read/Cell.hs
index b81825a..97ab254 100644
--- a/src/Textphile/TCT/Read/Cell.hs
+++ b/src/Textphile/TCT/Read/Cell.hs
@@ -82,6 +82,7 @@ runParserOnCell p (Sourced (FileRange inp bp _ep :| path) s) =
 	 P.State
 	 { P.stateInput    = StreamCell s
 	 , P.stateOffset   = 0
+	 , P.stateParseErrors = []
 	 , P.statePosState = P.PosState
 		{ P.pstateInput      = StreamCell s
 		, P.pstateOffset     = 0