git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Keep position info around when desugaring do notation
894a03cPhil Freeman
src/Language/PureScript/Sugar/DoNotation.hs+1−1
compare with golang
unifiedsplit
@@ -48,7 +48,7 @@ desugarDo d =
48
48
49 replace :: Value -> Either ErrorStack Value
49 replace :: Value -> Either ErrorStack Value
50 replace (Do els) = go els
50 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)
52 replace other = return other
52 replace other = return other
53
53
54 go :: [DoNotationElement] -> Either ErrorStack Value
54 go :: [DoNotationElement] -> Either ErrorStack Value