Commit 794f1a1d authored by simonmar's avatar simonmar
Browse files

[project @ 2000-07-18 14:50:07 by simonmar]

fix finding of the usage message (again).
parent 96acca9a
......@@ -73,9 +73,9 @@ short_usage = do
exitWith ExitSuccess
long_usage = do
let usage_filename = "ghc-usage.txt"
usage_dir = findFile usage_filename cGHC_DRIVER_DIR
usage <- readFile (usage_dir ++ "/" ++ usage_filename)
let usage_file = "ghc-usage.txt"
usage_path = findFile usage_file (cGHC_DRIVER_DIR ++ '/':usage_file)
usage <- readFile usage_path
dump usage
exitWith ExitSuccess
where
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment