Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
4502e901
Commit
4502e901
authored
Aug 21, 2013
by
Mikhail Glushenkov
Browse files
Rename 'extra-html-files' to 'extra-doc-files'.
parent
2475a177
Changes
4
Hide whitespace changes
Inline
Side-by-side
Cabal/Distribution/PackageDescription.hs
View file @
4502e901
...
...
@@ -195,7 +195,7 @@ data PackageDescription
dataDir
::
FilePath
,
extraSrcFiles
::
[
FilePath
],
extraTmpFiles
::
[
FilePath
],
extra
Html
Files
::
[
FilePath
]
extra
Doc
Files
::
[
FilePath
]
}
deriving
(
Show
,
Read
,
Eq
,
Typeable
,
Data
)
...
...
@@ -259,7 +259,7 @@ emptyPackageDescription
dataDir
=
""
,
extraSrcFiles
=
[]
,
extraTmpFiles
=
[]
,
extra
Html
Files
=
[]
extra
Doc
Files
=
[]
}
-- | The type of build system used by this package.
...
...
Cabal/Distribution/PackageDescription/Check.hs
View file @
4502e901
...
...
@@ -852,11 +852,11 @@ checkPaths pkg =
_
->
False
-- paths that must be relative
relPaths
=
[
(
path
,
"extra-src-files"
)
|
path
<-
extraSrcFiles
pkg
]
++
[
(
path
,
"extra-tmp-files"
)
|
path
<-
extraTmpFiles
pkg
]
++
[
(
path
,
"extra-
html
-files"
)
|
path
<-
extra
Html
Files
pkg
]
++
[
(
path
,
"data-files"
)
|
path
<-
dataFiles
pkg
]
++
[
(
path
,
"data-dir"
)
|
path
<-
[
dataDir
pkg
]]
[
(
path
,
"extra-src-files"
)
|
path
<-
extraSrcFiles
pkg
]
++
[
(
path
,
"extra-tmp-files"
)
|
path
<-
extraTmpFiles
pkg
]
++
[
(
path
,
"extra-
doc
-files"
)
|
path
<-
extra
Doc
Files
pkg
]
++
[
(
path
,
"data-files"
)
|
path
<-
dataFiles
pkg
]
++
[
(
path
,
"data-dir"
)
|
path
<-
[
dataDir
pkg
]]
++
concat
[
[
(
path
,
"c-sources"
)
|
path
<-
cSources
bi
]
++
[
(
path
,
"install-includes"
)
|
path
<-
installIncludes
bi
]
...
...
Cabal/Distribution/PackageDescription/Parse.hs
View file @
4502e901
...
...
@@ -174,9 +174,9 @@ pkgDescrFieldDescrs =
,
listField
"extra-tmp-files"
showFilePath
parseFilePathQ
extraTmpFiles
(
\
val
pkg
->
pkg
{
extraTmpFiles
=
val
})
,
listField
"extra-
html
-files"
,
listField
"extra-
doc
-files"
showFilePath
parseFilePathQ
extra
Html
Files
(
\
val
pkg
->
pkg
{
extra
Html
Files
=
val
})
extra
Doc
Files
(
\
val
pkg
->
pkg
{
extra
Doc
Files
=
val
})
]
-- | Store any fields beginning with "x-" in the customFields field of
...
...
Cabal/Distribution/Simple/Haddock.hs
View file @
4502e901
...
...
@@ -237,7 +237,7 @@ haddock pkg_descr lbi suffixes flags = do
CTest
_
->
when
(
flag
haddockTestSuites
)
$
doExe
comp
CBench
_
->
when
(
flag
haddockBenchmarks
)
$
doExe
comp
forM_
(
extra
Html
Files
pkg_descr
)
$
\
fpath
->
do
forM_
(
extra
Doc
Files
pkg_descr
)
$
\
fpath
->
do
files
<-
matchFileGlob
fpath
forM_
files
$
copyFileTo
verbosity
(
unDir
$
argOutputDir
commonArgs
)
where
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment