Add position info to duplicate def errors
commit26b82eaab1cb94768c0b4dda2817f3decdeb7fc1
authorGary Burgess <gary.burgess@gmail.com>
dateFri 6 Feb 2015, 15:04 (12 years ago)
parentc6008b0
src/Language/PureScript/Sugar/Names.hs+1−1
@@ -331,7 +331,7 @@ findExports = foldM addModule $ M.singleton (ModuleName [ProperName C.prim]) pri
331331 addDecl mn env (ExternDataDeclaration tn _) = addType env mn tn []
332332 addDecl mn env (ValueDeclaration name _ _ _) = addValue env mn name
333333 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
335335 addDecl _ env _ = return env
336336
337337-- |