From 864666490ab0ef5eb6edf78708de1102b16e6771 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Tue, 12 Mar 2013 16:19:44 +0900 Subject: [PATCH] cosmetic changes. --- Info.hs | 8 ++++---- Lint.hs | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Info.hs b/Info.hs index d8a065a..3aa87e1 100644 --- a/Info.hs +++ b/Info.hs @@ -121,9 +121,9 @@ infoThing str = do filterOutChildren :: (a -> TyThing) -> [a] -> [a] filterOutChildren get_thing xs - = [x | x <- xs, not (getName (get_thing x) `elemNameSet` implicits)] + = [x | x <- xs, not (getName (get_thing x) `elemNameSet` implicits)] where - implicits = mkNameSet [getName t | x <- xs, t <- implicitTyThings (get_thing x)] + implicits = mkNameSet [getName t | x <- xs, t <- implicitTyThings (get_thing x)] pprInfo :: PrintExplicitForalls -> (TyThing, GHC.Fixity, [Gap.ClsInst]) -> SDoc pprInfo pefas (thing, fixity, insts) @@ -132,8 +132,8 @@ pprInfo pefas (thing, fixity, insts) $$ vcat (map pprInstance insts) where show_fixity fx - | fx == defaultFixity = Outputable.empty - | otherwise = ppr fx <+> ppr (getName thing) + | fx == defaultFixity = Outputable.empty + | otherwise = ppr fx <+> ppr (getName thing) ---------------------------------------------------------------- diff --git a/Lint.hs b/Lint.hs index 700c480..8741ec7 100644 --- a/Lint.hs +++ b/Lint.hs @@ -6,9 +6,9 @@ import Language.Haskell.HLint import Types lintSyntax :: Options -> String -> IO String -lintSyntax opt file = pretty <$> lint opt file +lintSyntax opt file = pack <$> lint opt file where - pretty = unlines . map (intercalate "\0" . lines) + pack = unlines . map (intercalate "\0" . lines) lint :: Options -> String -> IO [String] lint opt file = map show <$> hlint ([file, "--quiet"] ++ hlintOpts opt)