hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cosmetic change.

This commit is contained in:
Kazu Yamamoto 2012-02-14 10:21:48 +09:00
parent b11475821e
commit 86d5419309
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Types.hs
View File

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