Line numbers for `shadowedName` warnings.
commitafb356aeabb8d2c786919333a6d4f84a348f72a5
authornicodelpiano <ndel314@gmail.com>
dateFri 24 Jul 2015, 11:45 (11 years ago)
parentda99bc1
src/Language/PureScript/Linter.hs+6−1
@@ -53,7 +53,12 @@ lint (Module _ mn ds _) = censor (onErrorMessages (ErrorInModule mn)) $ mapM_ li
5353 lintDeclaration :: Declaration -> m ()
5454 lintDeclaration d =
5555 let (f, _, _, _, _) = everythingWithContextOnValues moduleNames mempty mappend stepD stepE stepB def def
56− in tell (f d)
56+
57+ f' :: Declaration -> MultipleErrors
58+ f' (PositionedDeclaration pos _ dec) = onErrorMessages (PositionedError pos) (f' dec)
59+ f' dec = f dec
60+
61+ in tell (f' d)
5762 where
5863 def s _ = (s, mempty)
5964