cosmetic change.

This commit is contained in:
Kazu Yamamoto 2012-02-14 10:21:48 +09:00
parent b11475821e
commit 86d5419309

View File

@ -11,6 +11,7 @@ import GHC.Paths (libdir)
---------------------------------------------------------------- ----------------------------------------------------------------
data OutputStyle = LispStyle | PlainStyle data OutputStyle = LispStyle | PlainStyle
data Options = Options { data Options = Options {
outputStyle :: OutputStyle outputStyle :: OutputStyle
, hlintOpts :: [String] , hlintOpts :: [String]
@ -19,11 +20,13 @@ data Options = Options {
} }
convert :: Options -> [String] -> String convert :: Options -> [String] -> String
convert Options{outputStyle = LispStyle} ms = "(" ++ unwords quoted ++ ")\n" convert Options{ outputStyle = LispStyle } ms = "(" ++ unwords quoted ++ ")\n"
where where
quote x = "\"" ++ x ++ "\"" quote x = "\"" ++ x ++ "\""
quoted = map quote ms quoted = map quote ms
convert Options{outputStyle = PlainStyle} ms = unlines ms convert Options{ outputStyle = PlainStyle } ms = unlines ms
----------------------------------------------------------------
withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a) withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a)
withGHC body = ghandle ignore $ runGhc (Just libdir) body withGHC body = ghandle ignore $ runGhc (Just libdir) body