@@ -53,7 +53,12 @@ lint (Module _ mn ds _) = censor (onErrorMessages (ErrorInModule mn)) $ mapM_ li
53 lintDeclaration :: Declaration -> m ()
53 lintDeclaration :: Declaration -> m ()
54 lintDeclaration d =
54 lintDeclaration d =
55 let (f, _, _, _, _) = everythingWithContextOnValues moduleNames mempty mappend stepD stepE stepB def def
55 let (f, _, _, _, _) = everythingWithContextOnValues moduleNames mempty mappend stepD stepE stepB def def
57+ f' :: Declaration -> MultipleErrors
58+ f' (PositionedDeclaration pos _ dec) = onErrorMessages (PositionedError pos) (f' dec)
56− in tell (f d)
61+ in tell (f' d)
58 def s _ = (s, mempty)
63 def s _ = (s, mempty)