@@ -60,14 +60,17 @@ packed = iso otoList fromList
6060-- > atom = _Var /$/ name
6161-- > /|/ parens expr
6262-- >
63+-- > --| Parses a list of applications.
64+-- > apps :: Syntax syn Text => syn AST
65+-- > apps = bifoldl1 (attemptAp_ _App) /$/ S.sepBy1 atom S.spaces1
66+-- >
6367-- > -- | An expression of our lambda calculus.
6468-- > 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_
6770-- > */ name /* S.spaces
6871-- > /* S.string "->" /* S.spaces
69−-- > /*/ expr
70−-- > /|/ atom
72+-- > /*/ expr
73+-- > /|/ apps
7174--
7275-- Methods of this class try to mimic "Data.Attoparsec.Text" interface.
7376class ( SemiIsoAlternative syn