@@ -331,7 +331,7 @@ findExports = foldM addModule $ M.singleton (ModuleName [ProperName C.prim]) pri
331 addDecl mn env (ExternDataDeclaration tn _) = addType env mn tn []
331 addDecl mn env (ExternDataDeclaration tn _) = addType env mn tn []
332 addDecl mn env (ValueDeclaration name _ _ _) = addValue env mn name
332 addDecl mn env (ValueDeclaration name _ _ _) = addValue env mn name
333 addDecl mn env (ExternDeclaration _ name _ _) = addValue env mn name
333 addDecl mn env (ExternDeclaration _ name _ _) = addValue env mn name
334− addDecl mn env (PositionedDeclaration _ _ d) = addDecl mn env d
334+ addDecl mn env (PositionedDeclaration pos _ d) = rethrowWithPosition pos $ addDecl mn env d
335 addDecl _ env _ = return env
335 addDecl _ env _ = return env