aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs11
1 files changed, 3 insertions, 8 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 33913b51..3bbcf3a0 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -77,15 +77,10 @@ main = do
(flags, fileArgs) <- parseHaddockOpts rest''
- mbPkgName <- handleEagerFlags flags
- let dynflags'' = case mbPkgName of
- Just name -> setPackageName name dynflags'
- Nothing -> dynflags'
+ setSessionDynFlags session dynflags'
+ modules <- sortAndCheckModules session dynflags' fileArgs
- setSessionDynFlags session dynflags''
- modules <- sortAndCheckModules session dynflags'' fileArgs
-
- packages <- getPackages session dynflags''
+ packages <- getPackages session dynflags'
updateHTMLXRefs packages
let env = packagesDocEnv packages