Use withPackageDB.

Author: 23Skidoo

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