Merge pull request #1303 from nicodelpiano/master
Line numbers for `ShadowedName` warnings.
commitc006b192e62e407c0b183511e1746ce0982552f1
authorPhil Freeman <paf31@cantab.net>
dateSun 26 Jul 2015, 18:38 (11 years ago)
parente36c1e8afb356a
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