From 79705d8b424c02d278a684dc1b61636eecbf3e91 Mon Sep 17 00:00:00 2001
From: Julien Moutinho <julm@sourcephile.fr>
Date: Wed, 1 Apr 2020 04:23:13 +0200
Subject: [PATCH] Fix megaparsec-8 update
---
src/Textphile/DTC/Read/TCT.hs | 1 +
src/Textphile/TCT/Read/Cell.hs | 1 +
2 files changed, 2 insertions(+)
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
--
2.47.2