diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2017-09-26 17:31:42 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2017-09-26 17:32:41 +0200 |
commit | 34dd91fc10c0fcd33aced8a658a90cd6a6734850 (patch) | |
tree | e78e420c0e57877b7571df0969a17f0a0d51e7df /Distribution/Helper.hs | |
parent | d5c60908dfbfc746979d2a4bc9ec5bb8f05f1e7a (diff) |
Rename 'default*' -> 'mk*'
Diffstat (limited to 'Distribution/Helper.hs')
-rw-r--r-- | Distribution/Helper.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs index 375fd0b..6fbba38 100644 --- a/Distribution/Helper.hs +++ b/Distribution/Helper.hs @@ -26,7 +26,7 @@ Portability : POSIX module Distribution.Helper ( Programs(..) - , defaultPrograms + , mkPrograms , QueryEnv , qeReadProcess , qePrograms @@ -34,7 +34,7 @@ module Distribution.Helper ( , qeDistDir , qeCabalPkgDb , qeCabalVer - , defaultQueryEnv + , mkQueryEnv -- * Running Queries , Query @@ -110,8 +110,8 @@ data Programs = Programs { ghcPkgProgram :: FilePath } deriving (Eq, Ord, Show, Read, Generic, Typeable) -defaultPrograms :: Programs -defaultPrograms = Programs "cabal" "ghc" "ghc-pkg" +mkPrograms :: Programs +mkPrograms = Programs "cabal" "ghc" "ghc-pkg" data QueryEnv = QueryEnv { -- | How to start the cabal-helper process. Useful if you need to @@ -135,15 +135,15 @@ data QueryEnv = QueryEnv { qeCabalVer :: Maybe Version } -defaultQueryEnv :: FilePath - -- ^ Path to project directory, i.e. the one containing the - -- @project.cabal@ file - -> FilePath - -- ^ Path to the @dist/@ directory - -> QueryEnv -defaultQueryEnv projdir distdir = QueryEnv { +mkQueryEnv :: FilePath + -- ^ Path to project directory, i.e. the one containing the + -- @project.cabal@ file + -> FilePath + -- ^ Path to the @dist/@ directory + -> QueryEnvgs +mkQueryEnv projdir distdir = QueryEnv { qeReadProcess = readProcess - , qePrograms = defaultPrograms + , qePrograms = mkPrograms , qeProjectDir = projdir , qeDistDir = distdir , qeCabalPkgDb = Nothing |