@@ -8,8 +8,8 @@ import Control.Monad.IO.Class
88import Control.Exception
99import Data.Text hiding (map, concat, foldl)
1010import System.FilePath.Glob
11−import System.Directory
12−import System.FilePath
11+--import System.Directory
12+--import System.FilePath
1313import Control.Monad
1414
1515import Unsafe.Coerce
@@ -36,11 +36,12 @@ data ScriptSessionError = ScriptSessionLoadError GhcException
3636initScriptSession :: [String] -> IO (Either ScriptSessionError ScriptSession)
3737initScriptSession ghcPkgPaths = do
3838 --for the sake of convenience, for developers' builds, include the local cabal sandbox package database and the cabal new-build package database
39− homeDir <- getHomeDirectory
39+ --homeDir <- getHomeDirectory
4040 sandboxPkgPaths <- liftM concat $ mapM glob [
41− "./dist-newstyle/packagedb/ghc-*",
42− ".cabal-sandbox/*packages.conf.d",
43− homeDir </> ".cabal/store/ghc-*/package.db"
41+ ".cabal-sandbox/*packages.conf.d"
42+ --"./dist-newstyle/packagedb/ghc-*",
43+
44+ --homeDir </> ".cabal/store/ghc-*/package.db"
4445 ]
4546 let excHandler exc = pure $ Left (ScriptSessionLoadError exc)
4647 handleGhcException excHandler $ runGhc (Just libdir) $ do