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"
63 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_30 inp_26 of
72 farExp_31 GHC.Base.<> []
79 in finalRaise_18 inp_26 farInp_32 farExp_33
80 in let readFail_34 = catchHandler_28
81 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_26)
86 #) = readNext_3 inp_26
87 in if ('a' GHC.Classes.==) c_35
89 let readFail_37 = readFail_34
94 in if ('b' GHC.Classes.==) c_38
96 let readFail_40 = readFail_34
100 #) = readNext_3 cs_39
101 in if ('c' GHC.Classes.==) c_41
103 let readFail_43 = readFail_34
107 #) = readNext_3 cs_42
108 in if ('d' GHC.Classes.==) c_44
111 in ok_25 init_1 GHC.Types
113 ( let _ = "resume.genCode"
114 in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . [])))
118 let _ = "checkToken.else"
122 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_42 of
126 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
131 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
138 in readFail_34 cs_42 farInp_46 farExp_47
140 let _ = "checkToken.else"
144 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_39 of
148 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
153 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
160 in readFail_34 cs_39 farInp_48 farExp_49
162 let _ = "checkToken.else"
166 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_36 of
170 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
175 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
182 in readFail_34 cs_36 farInp_50 farExp_51
184 let _ = "checkToken.else"
188 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
192 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
197 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
204 in readFail_34 inp_26 farInp_52 farExp_53
206 let _ = "checkHorizon.else"
210 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
214 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
219 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
226 in readFail_34 inp_26 farInp_54 farExp_55
227 name_56 = \(!ok_57) (!inp_58) (!koByLabel_59) ->
228 let _ = "catchException lbl=fail"
229 in let catchHandler_60 (!failInp_61) (!farInp_62) (!farExp_63) =
230 let _ = "catchException.ko lbl=fail"
231 in if ( \( Data.Text.Internal.Text
236 ( Data.Text.Internal.Text
240 ) -> i_64 GHC.Classes.== j_65
245 let _ = "choicesBranch.then"
250 ( let _ = "resume.genCode"
255 let _ = "choicesBranch.else"
259 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_62 failInp_61 of
268 farExp_63 GHC.Base.<> []
275 in finalRaise_18 failInp_61 farInp_67 farExp_68
278 in \farInp_69 farExp_70 v_71 (!inp_72) ->
281 in \farInp_73 farExp_74 v_75 (!inp_76) ->
286 ( let _ = "resume.genCode"
287 in \x_77 -> v_71 GHC.Types.: v_75 x_77
292 Data.Map.Internal.Tip
295 Data.Map.Internal.Tip
298 in \farInp_78 farExp_79 v_80 (!inp_81) ->
301 in \farInp_82 farExp_83 v_84 (!inp_85) ->
302 let join_86 = \farInp_87 farExp_88 v_89 (!inp_90) ->
307 ( let _ = "resume.genCode"
308 in v_80 GHC.Types.: v_84 GHC.Types . []
311 in let _ = "catchException lbl=fail"
312 in let catchHandler_91 (!failInp_92) (!farInp_93) (!farExp_94) =
313 let _ = "catchException.ko lbl=fail"
314 in if ( \( Data.Text.Internal.Text
319 ( Data.Text.Internal.Text
323 ) -> i_95 GHC.Classes.== j_96
328 let _ = "choicesBranch.then"
332 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_93 failInp_92 of
336 [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
341 farExp_94 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
348 in finalRaise_18 failInp_92 farInp_97 farExp_98
350 let _ = "choicesBranch.else"
354 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_93 failInp_92 of
363 farExp_94 GHC.Base.<> []
370 in finalRaise_18 failInp_92 farInp_99 farExp_100
371 in let _ = "catchException lbl=fail"
372 in let catchHandler_101 (!failInp_102) (!farInp_103) (!farExp_104) =
373 let _ = "catchException.ko lbl=fail"
378 ( let _ = "resume.genCode"
382 in let readFail_105 = catchHandler_101
383 in if readMore_2 inp_85
388 #) = readNext_3 inp_85
389 in if (\x_108 -> GHC.Types.True) c_106
394 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
403 farExp_83 GHC.Base.<> []
410 in catchHandler_91 inp_85 farInp_109 farExp_110
412 let _ = "checkToken.else"
416 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
425 farExp_83 GHC.Base.<> []
432 in readFail_105 inp_85 farInp_111 farExp_112
434 let _ = "checkHorizon.else"
438 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
442 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
447 farExp_83 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
454 in readFail_105 inp_85 farInp_113 farExp_114
457 Data.Map.Internal.Tip
460 Data.Map.Internal.Tip