Commit 798f758b authored by panne's avatar panne
Browse files

[project @ 2000-06-29 20:20:18 by panne]

Fixed buglet in search for ghc-usage.txt
parent 26d2e639
......@@ -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
......
Markdown is supported
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