@@ -496,8 +496,8 @@ pFixity = do pushIndent
496496 })
497497 fc <- pfc
498498 return (PFix fc (f prec) ops)
499− else fail $ concatMap (\(f, (x:xs)) -> "Illegal redeclaration of fixity: \""
500− ++ show f ++ "\" overrides \"" ++ show x ++ "\"\n") ill
499+ else fail $ concatMap (\(f, (x:xs)) -> "Illegal redeclaration of fixity:\n\t\""
500+ ++ show f ++ "\" overrides \"" ++ show x ++ "\"") ill
501501 where alreadyDeclared :: [FixDecl] -> FixDecl -> (FixDecl, [FixDecl])
502502 alreadyDeclared fs f = (f, filter ((extractName f ==) . extractName) fs)
503503