From 794f1a1d1a11e5a8447e041bfbac37e5c3fb7cc1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 18 Jul 2000 14:50:07 +0000
Subject: [PATCH] [project @ 2000-07-18 14:50:07 by simonmar] fix finding of
the usage message (again).
---
ghc/driver/Main.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 856d7d0f7b37..7120b931a2b1 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
--
GitLab