7be6777 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Don't erase position info

commit7be6777501b835949e96989b9fa1ca6bec7132c3 authorGary Burgess <gary.burgess@gmail.com> dateTue 13 May 2014, 00:15 (12 years ago) parent9edd19a

1 file changed+1−1

unifiedsplit

src/Language/PureScript/Sugar/DoNotation.hs+1−1

@@ -35,7 +35,7 @@ desugarDoModule :: Module -> Either ErrorStack Module

3535desugarDoModule (Module mn ds exts) = Module mn <$> mapM desugarDo ds <*> pure exts

3636

3737desugarDo :: Declaration -> Either ErrorStack Declaration

38−desugarDo (PositionedDeclaration pos d) = rethrowWithPosition pos $ desugarDo d

38+desugarDo (PositionedDeclaration pos d) = (PositionedDeclaration pos) <$> (rethrowWithPosition pos $ desugarDo d)

3939desugarDo d =

4040 let (f, _, _) = everywhereOnValuesM return replace return

4141 in f d