@@ -35,7 +35,7 @@ desugarDoModule :: Module -> Either ErrorStack Module
35desugarDoModule (Module mn ds exts) = Module mn <$> mapM desugarDo ds <*> pure exts
35desugarDoModule (Module mn ds exts) = Module mn <$> mapM desugarDo ds <*> pure exts
37desugarDo :: Declaration -> Either ErrorStack Declaration
37desugarDo :: Declaration -> Either ErrorStack Declaration
38−desugarDo (PositionedDeclaration pos d) = rethrowWithPosition pos $ desugarDo d
38+desugarDo (PositionedDeclaration pos d) = (PositionedDeclaration pos) <$> (rethrowWithPosition pos $ desugarDo d)
39desugarDo d =
39desugarDo d =
40 let (f, _, _) = everywhereOnValuesM return replace return
40 let (f, _, _) = everywhereOnValuesM return replace return