@@ -60,14 +60,17 @@ packed = iso otoList fromList
60-- > atom = _Var /$/ name
60-- > atom = _Var /$/ name
61-- > /|/ parens expr
61-- > /|/ parens expr
63+-- > --| Parses a list of applications.
64+-- > apps :: Syntax syn Text => syn AST
65+-- > apps = bifoldl1 (attemptAp_ _App) /$/ S.sepBy1 atom S.spaces1
63-- > -- | An expression of our lambda calculus.
67-- > -- | An expression of our lambda calculus.
64-- > expr :: Syntax syn Text => syn AST
68-- > expr :: Syntax syn Text => syn AST
65−-- > expr = _App /$/ atom /* S.spaces1 /*/ atom
66−-- > /|/ _Abs /$/ S.char '\\' /* S.spaces_
69+-- > expr = _Abs /$/ S.char '\\' /* S.spaces_
67-- > */ name /* S.spaces
70-- > */ name /* S.spaces
68-- > /* S.string "->" /* S.spaces
71-- > /* S.string "->" /* S.spaces
69−-- > /*/ expr
72+-- > /*/ expr
70−-- > /|/ atom
73+-- > /|/ apps
72-- Methods of this class try to mimic "Data.Attoparsec.Text" interface.
75-- Methods of this class try to mimic "Data.Attoparsec.Text" interface.
73class ( SemiIsoAlternative syn
76class ( SemiIsoAlternative syn