Keep position info around when desugaring do notation
commit894a03cc1c9613d9e9da21029a681bf38870c078
authorPhil Freeman <paf31@cantab.net>
dateWed 21 May 2014, 10:45 (12 years ago)
parent9345919
src/Language/PureScript/Sugar/DoNotation.hs+1−1
@@ -48,7 +48,7 @@ desugarDo d =
4848
4949 replace :: Value -> Either ErrorStack Value
5050 replace (Do els) = go els
51− replace (PositionedValue pos v) = rethrowWithPosition pos $ replace v
51+ replace (PositionedValue pos v) = PositionedValue pos <$> rethrowWithPosition pos (replace v)
5252 replace other = return other
5353
5454 go :: [DoNotationElement] -> Either ErrorStack Value