Use withPackageDB.

haskell · Aug 15, 2016 · 73e92bc · 73e92bc
1 parent 292bc20
commit 73e92bc
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/cabal-install/Distribution/Client/Status.hs b/cabal-install/Distribution/Client/Status.hs
@@ -156,13 +156,7 @@ status verbosity globalFlags statusFlags = do
       return $ ( Just sandboxPath
                , Just $ sandboxPackageDBPath sandboxPath comp platform)
     else return (Nothing, Nothing)
-  let dbs :: [PackageDB] -- TODO: it might be better to inspect the currently
-                         -- configured dbs instead of a static global,local,..
-      dbs = GlobalPackageDB
-          : UserPackageDB
-          : case sandboxDbPath of
-              Nothing -> []
-              Just p -> [SpecificPackageDB p]
+  let dbs = withPackageDB buildConfig
   let noFlags = not $ any Cabal.fromFlag [ statusVersion      statusFlags
                                          , statusProgVersions statusFlags
                                          , statusCompiler     statusFlags