9 ( t@( Data.Text.Internal.Text
15 let !( Data.Text.Unsafe.Iter
18 ) = Data.Text.Unsafe.iter t 0
21 Data.Text.Internal.Text arr (off GHC.Num.+ d) (unconsumed GHC.Num.- d)
24 ( Data.Text.Internal.Text
28 ) = unconsumed GHC.Classes.> 0
29 in (# input, more, next #)
30 finalRet = \_farInp _farExp v _inp -> Symantic.Parser.Machine.Generate.returnST GHC.Base.$ Data.Either.Right v
33 Symantic.Parser.Machine.Generate.Catcher
36 b = \(!exn) _failInp (!farInp) (!farExp) ->
37 Symantic.Parser.Machine.Generate.returnST GHC.Base.$
39 Symantic.Parser.Machine.Generate.ParsingError
40 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp,
41 Symantic.Parser.Machine.Generate.parsingErrorException = exn,
42 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
52 else GHC.Maybe.Nothing,
53 Symantic.Parser.Machine.Generate.parsingErrorExpecting = farExp
56 ( let inputToken = Data.Proxy.Proxy :: Data.Proxy.Proxy (Symantic.Parser.Machine.Input.InputToken inp)
58 in let _ = "catch ExceptionFailure"
59 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
60 let _ = "catch.ko ExceptionFailure"
61 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
62 in let readFail = catchHandler
63 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 2 init)
65 let !(# c, cs #) = readNext init
66 in if (GHC.Classes.==) 'a' c
68 let readFail = readFail
73 in if (GHC.Classes.==) 'b' c
75 let readFail = readFail
80 in if (GHC.Classes.==) 'c' c
85 Data.Set.Internal.empty
86 ( let _ = "resume.genCode"
87 in GHC.Show.show ((GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' GHC.Types . [])))
91 let _ = "checkToken.else"
95 ( Symantic.Parser.Grammar.Combinators.SomeFailure
97 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'c'
100 Data.Set.Internal.Tip
101 Data.Set.Internal.Tip
105 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
114 failExp GHC.Base.<> Data.Set.Internal.empty
119 Data.Set.Internal.empty
121 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
123 let _ = "checkToken.else"
125 Data.Set.Internal.Bin
127 ( Symantic.Parser.Grammar.Combinators.SomeFailure
129 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
132 Data.Set.Internal.Tip
133 Data.Set.Internal.Tip
137 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
146 failExp GHC.Base.<> Data.Set.Internal.empty
151 Data.Set.Internal.empty
153 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
155 let _ = "checkToken.else"
157 Data.Set.Internal.Bin
159 ( Symantic.Parser.Grammar.Combinators.SomeFailure
161 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
164 Data.Set.Internal.Tip
165 Data.Set.Internal.Tip
169 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
178 failExp GHC.Base.<> Data.Set.Internal.empty
183 Data.Set.Internal.empty
185 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
187 let _ = "checkHorizon.else"
189 Data.Set.Internal.Bin
191 ( Symantic.Parser.Grammar.Combinators.SomeFailure
193 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 3
196 Data.Set.Internal.Tip
197 Data.Set.Internal.Tip
201 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
210 failExp GHC.Base.<> Data.Set.Internal.empty
215 Data.Set.Internal.empty
217 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp