[commit: ghc] wip/nfs-locking: Whitespace only (325db89)
git at git.haskell.org
git at git.haskell.org
Fri Oct 27 00:41:44 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/nfs-locking
Link : http://ghc.haskell.org/trac/ghc/changeset/325db89df96215ee0897187972197372e2ef34b9/ghc
>---------------------------------------------------------------
commit 325db89df96215ee0897187972197372e2ef34b9
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date: Sun Oct 16 00:45:17 2016 +0100
Whitespace only
>---------------------------------------------------------------
325db89df96215ee0897187972197372e2ef34b9
src/Oracles/PackageData.hs | 68 +++++++++++++++++++++++-----------------------
1 file changed, 34 insertions(+), 34 deletions(-)
diff --git a/src/Oracles/PackageData.hs b/src/Oracles/PackageData.hs
index 84d552f..55ea812 100644
--- a/src/Oracles/PackageData.hs
+++ b/src/Oracles/PackageData.hs
@@ -13,23 +13,23 @@ data PackageData = BuildGhciLib FilePath
| Synopsis FilePath
| Version FilePath
-data PackageDataList = CcArgs FilePath
- | CSrcs FilePath
- | CppArgs FilePath
- | DepCcArgs FilePath
- | DepExtraLibs FilePath
- | DepIds FilePath
- | DepIncludeDirs FilePath
- | DepLdArgs FilePath
- | DepLibDirs FilePath
- | DepNames FilePath
- | Deps FilePath
- | HiddenModules FilePath
- | HsArgs FilePath
- | IncludeDirs FilePath
- | LdArgs FilePath
- | Modules FilePath
- | SrcDirs FilePath
+data PackageDataList = CcArgs FilePath
+ | CSrcs FilePath
+ | CppArgs FilePath
+ | DepCcArgs FilePath
+ | DepExtraLibs FilePath
+ | DepIds FilePath
+ | DepIncludeDirs FilePath
+ | DepLdArgs FilePath
+ | DepLibDirs FilePath
+ | DepNames FilePath
+ | Deps FilePath
+ | HiddenModules FilePath
+ | HsArgs FilePath
+ | IncludeDirs FilePath
+ | LdArgs FilePath
+ | Modules FilePath
+ | SrcDirs FilePath
newtype PackageDataKey = PackageDataKey (FilePath, String)
deriving (Binary, Eq, Hashable, NFData, Show, Typeable)
@@ -55,23 +55,23 @@ pkgData packageData = case packageData of
-- @pkgListData Modules@ therefore returns ["Data.Array", "Data.Array.Base", ...]
pkgDataList :: PackageDataList -> Action [String]
pkgDataList packageData = fmap (map unquote . words) $ case packageData of
- CcArgs path -> askPackageData path "CC_OPTS"
- CSrcs path -> askPackageData path "C_SRCS"
- CppArgs path -> askPackageData path "CPP_OPTS"
- DepCcArgs path -> askPackageData path "DEP_CC_OPTS"
- DepExtraLibs path -> askPackageData path "DEP_EXTRA_LIBS"
- DepIds path -> askPackageData path "DEP_IPIDS"
- DepIncludeDirs path -> askPackageData path "DEP_INCLUDE_DIRS_SINGLE_QUOTED"
- DepLibDirs path -> askPackageData path "DEP_LIB_DIRS_SINGLE_QUOTED"
- DepLdArgs path -> askPackageData path "DEP_LD_OPTS"
- DepNames path -> askPackageData path "DEP_NAMES"
- Deps path -> askPackageData path "DEPS"
- HiddenModules path -> askPackageData path "HIDDEN_MODULES"
- HsArgs path -> askPackageData path "HC_OPTS"
- IncludeDirs path -> askPackageData path "INCLUDE_DIRS"
- LdArgs path -> askPackageData path "LD_OPTS"
- Modules path -> askPackageData path "MODULES"
- SrcDirs path -> askPackageData path "HS_SRC_DIRS"
+ CcArgs path -> askPackageData path "CC_OPTS"
+ CSrcs path -> askPackageData path "C_SRCS"
+ CppArgs path -> askPackageData path "CPP_OPTS"
+ DepCcArgs path -> askPackageData path "DEP_CC_OPTS"
+ DepExtraLibs path -> askPackageData path "DEP_EXTRA_LIBS"
+ DepIds path -> askPackageData path "DEP_IPIDS"
+ DepIncludeDirs path -> askPackageData path "DEP_INCLUDE_DIRS_SINGLE_QUOTED"
+ DepLibDirs path -> askPackageData path "DEP_LIB_DIRS_SINGLE_QUOTED"
+ DepLdArgs path -> askPackageData path "DEP_LD_OPTS"
+ DepNames path -> askPackageData path "DEP_NAMES"
+ Deps path -> askPackageData path "DEPS"
+ HiddenModules path -> askPackageData path "HIDDEN_MODULES"
+ HsArgs path -> askPackageData path "HC_OPTS"
+ IncludeDirs path -> askPackageData path "INCLUDE_DIRS"
+ LdArgs path -> askPackageData path "LD_OPTS"
+ Modules path -> askPackageData path "MODULES"
+ SrcDirs path -> askPackageData path "HS_SRC_DIRS"
where
unquote = dropWhile (== '\'') . dropWhileEnd (== '\'')
More information about the ghc-commits
mailing list