Add position info to UnknownModule error
commit7ab867f54dfef13d1fa4c24e964c932cacd7b4c9
authorGary Burgess <gary.burgess@gmail.com>
dateSat 9 Jan 2016, 21:05 (11 years ago)
parent2d01b2b
src/Language/PureScript/Sugar/Names/Imports.hs+1−1
@@ -135,7 +135,7 @@ resolveImports env (Module ss coms currentModule decls exps) =
135135
136136 updateImportRef :: Declaration -> m Declaration
137137 updateImportRef (PositionedDeclaration pos com d) =
138− warnWithPosition pos $ PositionedDeclaration pos com <$> updateImportRef d
138+ warnAndRethrowWithPosition pos $ PositionedDeclaration pos com <$> updateImportRef d
139139 updateImportRef (ImportDeclaration mn typ qual isOldSyntax) = do
140140 modExports <- getExports env mn
141141 typ' <- case typ of