[commit: ghc] wip/nfs-locking: Add Version and DepNames keys to PackageData. (229d5cb)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:24:15 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/229d5cbd080a7b581fce325d9cc06a553db93bc9/ghc

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

commit 229d5cbd080a7b581fce325d9cc06a553db93bc9
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Jan 16 03:18:04 2015 +0000

    Add Version and DepNames keys to PackageData.


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

229d5cbd080a7b581fce325d9cc06a553db93bc9
 src/Oracles/PackageData.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Oracles/PackageData.hs b/src/Oracles/PackageData.hs
index 854fb8c..e141120 100644
--- a/src/Oracles/PackageData.hs
+++ b/src/Oracles/PackageData.hs
@@ -12,12 +12,14 @@ import Util
 newtype PackageDataKey = PackageDataKey (FilePath, String)
                         deriving (Show, Typeable, Eq, Hashable, Binary, NFData)
 
-data PackageData = Modules     FilePath
+data PackageData = Version     FilePath
+                 | Modules     FilePath
                  | SrcDirs     FilePath
                  | PackageKey  FilePath
                  | IncludeDirs FilePath
                  | Deps        FilePath
                  | DepKeys     FilePath
+                 | DepNames    FilePath
                  | Synopsis    FilePath
                  | CppOpts     FilePath
                  | HsOpts      FilePath
@@ -25,12 +27,14 @@ data PackageData = Modules     FilePath
 instance ShowArgs PackageData where
     showArgs packageData = do
         let (key, file, defaultValue) = case packageData of
+               Version     file -> ("VERSION"     , file, "" )
                Modules     file -> ("MODULES"     , file, "" )
                SrcDirs     file -> ("HS_SRC_DIRS" , file, ".")
                PackageKey  file -> ("PACKAGE_KEY" , file, "" )
                IncludeDirs file -> ("INCLUDE_DIRS", file, ".")
                Deps        file -> ("DEPS"        , file, "" )
                DepKeys     file -> ("DEP_KEYS"    , file, "" )
+               DepNames    file -> ("DEP_NAMES"   , file, "" )
                Synopsis    file -> ("SYNOPSIS"    , file, "" )
                CppOpts     file -> ("CPP_OPTS"    , file, "" )
                HsOpts      file -> ("HC_OPTS"     , file, "" )



More information about the ghc-commits mailing list