[commit: Cabal] master: Export the list of InstalledPackageInfo fields (f2de618)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f2de618ba1e50a16cc2874df24a9488efdc59d72

>---------------------------------------------------------------

commit f2de618ba1e50a16cc2874df24a9488efdc59d72
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Wed May 25 11:45:01 2011 +0000

    Export the list of InstalledPackageInfo fields
    To allow parsers & pretty-printers for extensions of the format.

>---------------------------------------------------------------

 Distribution/InstalledPackageInfo.hs |   12 +++++++-----
 1 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/Distribution/InstalledPackageInfo.hs b/Distribution/InstalledPackageInfo.hs
index f878405..c5cd1b8 100644
--- a/Distribution/InstalledPackageInfo.hs
+++ b/Distribution/InstalledPackageInfo.hs
@@ -61,6 +61,7 @@ module Distribution.InstalledPackageInfo (
         parseInstalledPackageInfo,
         showInstalledPackageInfo,
         showInstalledPackageInfoField,
+        fieldsInstalledPackageInfo,
   ) where
 
 import Distribution.ParseUtils
@@ -170,22 +171,23 @@ noVersion = Version{ versionBranch=[], versionTags=[] }
 -- Parsing
 
 parseInstalledPackageInfo :: String -> ParseResult InstalledPackageInfo
-parseInstalledPackageInfo = parseFieldsFlat all_fields emptyInstalledPackageInfo
+parseInstalledPackageInfo =
+    parseFieldsFlat fieldsInstalledPackageInfo emptyInstalledPackageInfo
 
 -- -----------------------------------------------------------------------------
 -- Pretty-printing
 
 showInstalledPackageInfo :: InstalledPackageInfo -> String
-showInstalledPackageInfo = showFields all_fields
+showInstalledPackageInfo = showFields fieldsInstalledPackageInfo
 
 showInstalledPackageInfoField :: String -> Maybe (InstalledPackageInfo -> String)
-showInstalledPackageInfoField = showSingleNamedField all_fields
+showInstalledPackageInfoField = showSingleNamedField fieldsInstalledPackageInfo
 
 -- -----------------------------------------------------------------------------
 -- Description of the fields, for parsing/printing
 
-all_fields :: [FieldDescr InstalledPackageInfo]
-all_fields = basicFieldDescrs ++ installedFieldDescrs
+fieldsInstalledPackageInfo :: [FieldDescr InstalledPackageInfo]
+fieldsInstalledPackageInfo = basicFieldDescrs ++ installedFieldDescrs
 
 basicFieldDescrs :: [FieldDescr InstalledPackageInfo]
 basicFieldDescrs =