]> Git — Sourcephile - doclang.git/commitdiff
Fix megaparsec-8 update master
authorJulien Moutinho <julm@sourcephile.fr>
Wed, 1 Apr 2020 02:23:13 +0000 (04:23 +0200)
committerJulien Moutinho <julm@sourcephile.fr>
Wed, 1 Apr 2020 02:23:13 +0000 (04:23 +0200)
src/Textphile/DTC/Read/TCT.hs
src/Textphile/TCT/Read/Cell.hs

index d01e86a9c85740452af789b9e5ace3a2cb7a2dba..fad1d81d33e80e909985e86e2a7c50b932a3ab74 100644 (file)
@@ -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
        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
                 , P.statePosState = P.PosState
                         { P.pstateInput      = stateInput
                         , P.pstateOffset     = P.stateOffset st
index b81825a4c1daffc2c492e672d98e22170437f1dd..97ab254252281987d5e604e65e5efaac28987364 100644 (file)
@@ -82,6 +82,7 @@ runParserOnCell p (Sourced (FileRange inp bp _ep :| path) s) =
         P.State
         { P.stateInput    = StreamCell s
         , P.stateOffset   = 0
         P.State
         { P.stateInput    = StreamCell s
         , P.stateOffset   = 0
+        , P.stateParseErrors = []
         , P.statePosState = P.PosState
                { P.pstateInput      = StreamCell s
                , P.pstateOffset     = 0
         , P.statePosState = P.PosState
                { P.pstateInput      = StreamCell s
                , P.pstateOffset     = 0