aboutsummaryrefslogtreecommitdiff
path: root/Distribution/Helper.hs
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2017-09-26 17:31:42 +0200
committerDaniel Gröber <dxld@darkboxed.org>2017-09-26 17:32:41 +0200
commit34dd91fc10c0fcd33aced8a658a90cd6a6734850 (patch)
treee78e420c0e57877b7571df0969a17f0a0d51e7df /Distribution/Helper.hs
parentd5c60908dfbfc746979d2a4bc9ec5bb8f05f1e7a (diff)
Rename 'default*' -> 'mk*'
Diffstat (limited to 'Distribution/Helper.hs')
-rw-r--r--Distribution/Helper.hs24
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