@@ -489,11 +489,11 @@ let_ start =
489489
490490
491491letHelp :: R.Position -> Int -> [Src.RawDef] -> R.Position -> SPos -> ExprParser
492−letHelp start oldIndent defs end pos =
492+letHelp start oldIndent revDefs end pos =
493493 oneOf
494494 [ do checkAligned pos
495495 (def, newEnd, newPos) <- definition
496− letHelp start oldIndent (def:defs) newEnd newPos
496+ letHelp start oldIndent (def:revDefs) newEnd newPos
497497
498498 , do setIndent oldIndent
499499 checkSpace pos
@@ -501,7 +501,7 @@ letHelp start oldIndent defs end pos =
501501 popContext ()
502502 spaces
503503 (body, newEnd, newPos) <- expression
504− let letExpr = A.at start end (Src.Let defs body)
504+ let letExpr = A.at start end (Src.Let (reverse revDefs) body)
505505 return ( letExpr, newEnd, newPos )
506506 ]
507507