From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 7 Feb 2006 11:11:11 +0000 (+0000)
Subject: catch up with changes to Distribution.ParseUtils.ParseResult
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7717b20e5fd2b5bc6b894abe96bd957b9bb5435e;p=ghc-hetmet.git

catch up with changes to Distribution.ParseUtils.ParseResult
---

diff --git a/ghc/utils/ghc-pkg/Main.hs b/ghc/utils/ghc-pkg/Main.hs
index 8dd5206..a734636 100644
--- 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)
 
 -- -----------------------------------------------------------------------------