Have ghci --main-is imply an extra target #1845

commercialhaskell · Oct 18, 2016 · dcaf52e · dcaf52e
1 parent 47bcd49
commit dcaf52e
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/Stack/Ghci.hs b/src/Stack/Ghci.hs
@@ -319,7 +319,9 @@ ghciSetup
     => GhciOpts
     -> m (Map PackageName SimpleTarget, Maybe (Map PackageName SimpleTarget), [GhciPkgInfo])
 ghciSetup GhciOpts{..} = do
-    (_,_,targets) <- parseTargetsFromBuildOpts AllowNoTargets ghciBuildOptsCLI
+    let boptsCli0 = ghciBuildOptsCLI
+            { boptsCLITargets = boptsCLITargets ghciBuildOptsCLI ++ maybeToList ghciMainIs }
+    (_,_,targets) <- parseTargetsFromBuildOpts AllowNoTargets boptsCli0
     mainIsTargets <-
         case ghciMainIs of
             Nothing -> return Nothing
@@ -330,8 +332,8 @@ ghciSetup GhciOpts{..} = do
         let mres = (packageIdentifierName <$> parsePackageIdentifierFromString name)
                 <|> parsePackageNameFromString name
         maybe (throwM $ InvalidPackageOption name) return mres
-    let boptsCli = ghciBuildOptsCLI
-            { boptsCLITargets = boptsCLITargets ghciBuildOptsCLI ++ map T.pack ghciAdditionalPackages
+    let boptsCli = boptsCli0
+            { boptsCLITargets = boptsCLITargets boptsCli0 ++ map T.pack ghciAdditionalPackages
             }
     (realTargets,_,_,_,sourceMap) <- loadSourceMap AllowNoTargets boptsCli
     when ghciNoBuild $ $logInfo $ T.unlines