@@ -489,11 +489,11 @@ let_ start =
491letHelp :: R.Position -> Int -> [Src.RawDef] -> R.Position -> SPos -> ExprParser
491letHelp :: R.Position -> Int -> [Src.RawDef] -> R.Position -> SPos -> ExprParser
492−letHelp start oldIndent defs end pos =
492+letHelp start oldIndent revDefs end pos =
494 [ do checkAligned pos
494 [ do checkAligned pos
495 (def, newEnd, newPos) <- definition
495 (def, newEnd, newPos) <- definition
496− letHelp start oldIndent (def:defs) newEnd newPos
496+ letHelp start oldIndent (def:revDefs) newEnd newPos
498 , do setIndent oldIndent
498 , do setIndent oldIndent
499 checkSpace pos
499 checkSpace pos
@@ -501,7 +501,7 @@ letHelp start oldIndent defs end pos =
501 popContext ()
501 popContext ()
503 (body, newEnd, newPos) <- expression
503 (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)
505 return ( letExpr, newEnd, newPos )
505 return ( letExpr, newEnd, newPos )