1 \(input_0 :: inp_6989586621679059048) ->
9 ( t_5@( Data.Text.Internal.Text
15 let !( Data.Text.Unsafe.Iter
18 ) = Data.Text.Unsafe.iter t_5 0
21 Data.Text.Internal.Text arr_6 (off_7 GHC.Num.+ d_10) (unconsumed_8 GHC.Num.- d_10)
24 ( Data.Text.Internal.Text
28 ) = unconsumed_12 GHC.Classes.> 0
34 in let finalRet_13 = \_farInp_14 _farExp_15 v_16 _inp_17 -> Data.Either.Right v_16
35 in let finalRaise_18 ::
37 Symantic.Parser.Machine.Generate.Catcher
38 inp_6989586621679059048
39 b_19 = \_failInp_20 (!farInp_21) (!farExp_22) ->
41 Symantic.Parser.Machine.Generate.ParsingErrorStandard
42 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp_21,
43 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
44 if readMore_2 farInp_21
50 #) = readNext_3 farInp_21
53 else GHC.Maybe.Nothing,
54 Symantic.Parser.Machine.Generate.parsingErrorExpecting = Data.Set.Internal.fromList farExp_22
56 in let name_24 = \(!ok_25) (!inp_26) (!koByLabel_27) ->
57 let _ = "catchException lbl=fail"
58 in let catchHandler_28 (!failInp_29) (!farInp_30) (!farExp_31) =
59 let _ = "catchException.ko lbl=fail"
60 in if ( \( Data.Text.Internal.Text
65 ( Data.Text.Internal.Text
69 ) -> i_32 GHC.Classes.== j_33
74 let _ = "choicesBranch.then"
79 ( let _ = "resume.genCode"
84 let _ = "choicesBranch.else"
88 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_30 failInp_29 of
97 farExp_31 GHC.Base.<> []
104 in finalRaise_18 failInp_29 farInp_35 farExp_36
107 in \farInp_38 farExp_39 v_40 (!inp_41) ->
110 in \farInp_42 farExp_43 v_44 (!inp_45) ->
115 ( let _ = "resume.genCode"
116 in \x_46 -> v_40 GHC.Types.: v_44 x_46
121 Data.Map.Internal.Tip
124 Data.Map.Internal.Tip
125 name_37 = \(!ok_47) (!inp_48) (!koByLabel_49) ->
126 let _ = "catchException lbl=fail"
127 in let catchHandler_50 (!failInp_51) (!farInp_52) (!farExp_53) =
128 let _ = "catchException.ko lbl=fail"
132 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_52 inp_48 of
141 farExp_53 GHC.Base.<> []
148 in finalRaise_18 inp_48 farInp_54 farExp_55
149 in let readFail_56 = catchHandler_50
150 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_48)
155 #) = readNext_3 inp_48
156 in if ('a' GHC.Classes.==) c_57
158 let readFail_59 = readFail_56
162 #) = readNext_3 cs_58
163 in if ('b' GHC.Classes.==) c_60
165 let readFail_62 = readFail_56
169 #) = readNext_3 cs_61
170 in if ('c' GHC.Classes.==) c_63
172 let readFail_65 = readFail_56
176 #) = readNext_3 cs_64
177 in if ('d' GHC.Classes.==) c_66
180 in ok_47 init_1 GHC.Types
182 ( let _ = "resume.genCode"
183 in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . [])))
187 let _ = "checkToken.else"
191 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_64 of
195 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
200 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
207 in readFail_56 cs_64 farInp_68 farExp_69
209 let _ = "checkToken.else"
213 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_61 of
217 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
222 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
229 in readFail_56 cs_61 farInp_70 farExp_71
231 let _ = "checkToken.else"
235 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_58 of
239 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
244 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
251 in readFail_56 cs_58 farInp_72 farExp_73
253 let _ = "checkToken.else"
257 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_48 of
261 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
266 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
273 in readFail_56 inp_48 farInp_74 farExp_75
275 let _ = "checkHorizon.else"
279 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_48 of
283 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
288 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
295 in readFail_56 inp_48 farInp_76 farExp_77
298 in \farInp_78 farExp_79 v_80 (!inp_81) ->
301 in \farInp_82 farExp_83 v_84 (!inp_85) ->
306 ( let _ = "resume.genCode"
307 in v_80 GHC.Types.: v_84 GHC.Types . []
312 Data.Map.Internal.Tip
315 Data.Map.Internal.Tip