Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
798f758b
Commit
798f758b
authored
Jun 29, 2000
by
panne
Browse files
[project @ 2000-06-29 20:20:18 by panne]
Fixed buglet in search for ghc-usage.txt
parent
26d2e639
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/driver/Main.hs
View file @
798f758b
...
...
@@ -61,8 +61,9 @@ short_usage = do
exitWith
ExitSuccess
long_usage
=
do
let
usage_dir
=
findFile
"ghc-usage.txt"
(
cGHC_DRIVER_DIR
++
"/ghc-usage.txt"
)
usage
<-
readFile
(
usage_dir
++
"/ghc-usage.txt"
)
let
usage_filename
=
"ghc-usage.txt"
usage_dir
=
findFile
usage_filename
cGHC_DRIVER_DIR
usage
<-
readFile
(
usage_dir
++
"/"
++
usage_filename
)
dump
usage
exitWith
ExitSuccess
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