catch up with changes to Distribution.ParseUtils.ParseResult

[ghc-hetmet.git] / ghc / utils / ghc-pkg / Main.hs

diff --git a/ghc/utils/ghc-pkg/Main.hs b/ghc/utils/ghc-pkg/Main.hs
index 8dd5206..a734636 100644 (file)
--- a/ghc/utils/ghc-pkg/Main.hs
+++ b/ghc/utils/ghc-pkg/Main.hs
@@ -410,7 +410,7 @@ parsePackageInfo
        -> IO InstalledPackageInfo
 parsePackageInfo str defines force =
   case parseInstalledPackageInfo str of
-    ParseOk ok -> return ok
+    ParseOk _warns ok -> return ok
     ParseFailed err -> die (showError err)
 
 -- -----------------------------------------------------------------------------