From: simonmar <unknown>
Date: Tue, 18 Jul 2000 14:50:07 +0000 (+0000)
Subject: [project @ 2000-07-18 14:50:07 by simonmar]
X-Git-Tag: Approximately_9120_patches~3980
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=794f1a1d1a11e5a8447e041bfbac37e5c3fb7cc1;p=ghc-hetmet.git

[project @ 2000-07-18 14:50:07 by simonmar]
fix finding of the usage message (again).
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 856d7d0..7120b93 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -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