Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
5d536b42
Commit
5d536b42
authored
Nov 27, 2007
by
Ian Lynagh
Browse files
Remove the --print-docdir flag
It wasn't doing the right thing for bindists. Let's rethink...
parent
dfb079f3
Changes
4
Hide whitespace changes
Inline
Side-by-side
compiler/Makefile
View file @
5d536b42
...
...
@@ -271,7 +271,6 @@ endif
@
echo
"cUSER_WAY_NAMES =
\"
$(USER_WAY_NAMES)
\"
"
>>
$(CONFIG_HS)
@
echo
"cUSER_WAY_OPTS =
\"
$(USER_WAY_OPTS)
\"
"
>>
$(CONFIG_HS)
@
echo
"cDEFAULT_TMPDIR =
\"
$(DEFAULT_TMPDIR)
\"
"
>>
$(CONFIG_HS)
@
echo
"cDocDir =
\"
$(docdir)
\"
"
>>
$(CONFIG_HS)
ifeq
"$(RelocatableBuild)" "YES"
@
echo
"cRelocatableBuild = True"
>>
$(CONFIG_HS)
else
...
...
compiler/main/Main.hs
View file @
5d536b42
...
...
@@ -171,7 +171,6 @@ main =
ShowUsage
->
showGhcUsage
dflags
cli_mode
PrintLibdir
->
putStrLn
(
topDir
dflags
)
ShowSupportedLanguages
->
alreadyHandled
ShowDocDir
->
showDocDir
(
topDir
dflags
)
ShowVersion
->
alreadyHandled
ShowNumVersion
->
alreadyHandled
ShowInterface
f
->
doShowIface
dflags
f
...
...
@@ -306,7 +305,6 @@ verifyOutputFiles dflags = do
data
CmdLineMode
=
ShowUsage
-- ghc -?
|
PrintLibdir
-- ghc --print-libdir
|
ShowDocDir
-- ghc --print-docdir
|
ShowInfo
-- ghc --info
|
ShowSupportedLanguages
-- ghc --supported-languages
|
ShowVersion
-- ghc -V/--version
...
...
@@ -369,7 +367,6 @@ mode_flags =
(
"?"
,
PassFlag
(
setMode
ShowUsage
))
,
(
"-help"
,
PassFlag
(
setMode
ShowUsage
))
,
(
"-print-libdir"
,
PassFlag
(
setMode
PrintLibdir
))
,
(
"-print-docdir"
,
PassFlag
(
setMode
ShowDocDir
))
,
(
"V"
,
PassFlag
(
setMode
ShowVersion
))
,
(
"-version"
,
PassFlag
(
setMode
ShowVersion
))
,
(
"-numeric-version"
,
PassFlag
(
setMode
ShowNumVersion
))
...
...
@@ -475,12 +472,6 @@ showSupportedLanguages :: IO ()
showSupportedLanguages
=
do
mapM_
putStrLn
supportedLanguages
exitWith
ExitSuccess
showDocDir
::
FilePath
->
IO
()
showDocDir
topdir
=
putStrLn
docDir
where
docDir
=
if
cRelocatableBuild
then
topdir
++
"/doc"
else
cDocDir
showVersion
::
IO
()
showVersion
=
do
putStrLn
(
cProjectName
++
", version "
++
cProjectVersion
)
...
...
docs/users_guide/flags.xml
View file @
5d536b42
...
...
@@ -89,12 +89,6 @@
<entry>
mode
</entry>
<entry>
-
</entry>
</row>
<row>
<entry><option>
––
print-docdir
</option></entry>
<entry>
display GHC documentation directory
</entry>
<entry>
mode
</entry>
<entry>
-
</entry>
</row>
<row>
<entry><option>
-ferror-spans
</option></entry>
<entry>
output full span in error messages
</entry>
...
...
docs/users_guide/using.xml
View file @
5d536b42
...
...
@@ -422,20 +422,6 @@ module X where
</listitem>
</varlistentry>
<varlistentry>
<term>
<cmdsynopsis>
<command>
ghc --print-docdir
</command>
</cmdsynopsis>
<indexterm><primary><option>
––
print-docdir
</option></primary></indexterm>
</term>
<listitem>
<para>
Print the path to GHC's documentation directory. Note that
some distributions do no include the documentation, in which case
this directory may be empty or may not exist.
</para>
</listitem>
</varlistentry>
</variablelist>
<sect2
id=
"make-mode"
>
...
...
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