diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-10-10 21:15:36 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-11-01 01:11:09 -0400 |
| commit | dfd27445308d1ed2df8826c2a045130e918e8192 (patch) | |
| tree | 99fc01edeebc2924ddb7533864e0d4ca18cfe800 /compiler/GHC/Driver/Session.hs | |
| parent | bd4abdc953427e084e7ecba89db64860f6859822 (diff) | |
| download | haskell-dfd27445308d1ed2df8826c2a045130e918e8192.tar.gz | |
Add the proper HLint rules and remove redundant keywords from compiler
Diffstat (limited to 'compiler/GHC/Driver/Session.hs')
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index 20fd137ea7..2000b9760b 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -1351,7 +1351,7 @@ defaultFatalMessager = hPutStrLn stderr -- jsonLogAction :: LogAction jsonLogAction dflags reason severity srcSpan msg - = do + = defaultLogActionHPutStrDoc dflags stdout (withPprStyle (PprCode CStyle) (doc $$ text "")) where @@ -3030,7 +3030,7 @@ package_flags_deps = [ (HasArg $ addPkgDbRef . PkgDbPath) "Use -package-db instead" , make_dep_flag defFlag "no-user-package-conf" (NoArg removeUserPkgDb) "Use -no-user-package-db instead" - , make_ord_flag defGhcFlag "package-name" (HasArg $ \name -> do + , make_ord_flag defGhcFlag "package-name" (HasArg $ \name -> upd (setUnitId name)) , make_ord_flag defGhcFlag "this-unit-id" (hasArg setUnitId) , make_ord_flag defFlag "package" (HasArg exposePackage) |