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 <[email protected]> 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 = _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
