Don't pass filepaths into ghci ":module" #1401

Author: mgsloan

src/Stack/Ghci.hs

@@ -106,8 +106,9 @@ ghci GhciOpts{..} = do
             ("The following GHC options are incompatible with GHCi and have not been passed to it: " <>
              T.unwords (map T.pack (nubOrd omittedOpts)))
     let modulesToLoad = nubOrd $
-            maybe [] (return . toFilePath) mainFile <>
             concatMap (map display . S.toList . ghciPkgModules) pkgs
+        thingsToLoad =
+            maybe [] (return . toFilePath) mainFile <> modulesToLoad
         odir =
             [ "-odir=" <> toFilePathNoTrailingSep (objectInterfaceDir bconfig)
             , "-hidir=" <> toFilePathNoTrailingSep (objectInterfaceDir bconfig)]
@@ -132,8 +133,8 @@ ghci GhciOpts{..} = do
                 (\tmpDir ->
                       do let scriptPath = tmpDir </> $(mkRelFile "ghci-script")
                              fp = toFilePath scriptPath
-                             loadModules = ":load " <> unwords (map show modulesToLoad)
-                             bringIntoScope = ":module + " <> unwords (map show modulesToLoad)
+                             loadModules = ":load " <> unwords (map show thingsToLoad)
+                             bringIntoScope = ":module + " <> unwords modulesToLoad
                          liftIO (writeFile fp (unlines [loadModules,bringIntoScope]))
                          finally (execGhci ["-ghci-script=" <> fp])
                                  (removeFile scriptPath))