@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
ShowUsage -> showGhcUsage dflags cli_mode
PrintLibdir -> putStrLn (topDir dflags)
ShowSupportedLanguages -> alreadyHandled
- ShowDocDir -> showDocDir (topDir dflags)
ShowVersion -> alreadyHandled
ShowNumVersion -> alreadyHandled
ShowInterface f -> doShowIface dflags f
data CmdLineMode
= ShowUsage -- ghc -?
| PrintLibdir -- ghc --print-libdir
- | ShowDocDir -- ghc --print-docdir
| ShowInfo -- ghc --info
| ShowSupportedLanguages -- ghc --supported-languages
| ShowVersion -- ghc -V/--version
( "?" , 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))
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)
</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">