giving up loading Data.ByteString.

src/Boot.hs

@@ -11,8 +11,7 @@ boot opt cradle = do
     mods  <- listModules opt cradle
     langs <- listLanguages opt
     flags <- listFlags opt
-    let opt' = addPackages opt
-    pre   <- concat <$> mapM (browseModule opt' cradle) preBrowsedModules
+    pre   <- concat <$> mapM (browseModule opt cradle) preBrowsedModules
     return $ mods ++ langs ++ flags ++ pre
 
 boot' :: Options -> Ghc String
@@ -20,8 +19,7 @@ boot' opt = do
     mods  <- modules opt
     langs <- liftIO $ listLanguages opt
     flags <- liftIO $ listFlags opt
-    let opt' = addPackages opt
-    pre   <- concat <$> mapM (browse opt') preBrowsedModules
+    pre   <- concat <$> mapM (browse opt) preBrowsedModules
     return $ mods ++ langs ++ flags ++ pre
 
 preBrowsedModules :: [String]
@@ -30,23 +28,8 @@ preBrowsedModules = [
   , "Control.Applicative"
   , "Control.Exception"
   , "Control.Monad"
-  , "Data.ByteString"
   , "Data.Char"
   , "Data.List"
   , "Data.Maybe"
-  , "System.Directory"
-  , "System.FilePath"
   , "System.IO"
   ]
-
-preBrowsePackages :: [String]
-preBrowsePackages = [
-    "bytestring"
-  , "directory"
-  , "filepath"
-  ]
-
-addPackages :: Options -> Options
-addPackages opt = opt { ghcOpts = pkgs ++ ghcOpts opt}
-  where
-    pkgs = map ("-package " ++) preBrowsePackages