From: sof <unknown>
Date: Sat, 15 Aug 1998 17:51:25 +0000 (+0000)
Subject: [project @ 1998-08-15 17:51:25 by sof]
X-Git-Tag: Approx_2487_patches~332
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a08a071e8ed64e6af87b1042006b8d92979cd482;p=ghc-hetmet.git

[project @ 1998-08-15 17:51:25 by sof]
reformatted
---

diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
index 1420bfc..d3df602 100644
--- a/ghc/compiler/utils/Argv.lhs
+++ b/ghc/compiler/utils/Argv.lhs
@@ -26,9 +26,9 @@ unpackArgv argv argc = unpack 1
   where
     unpack :: Int -> [FAST_STRING]
     unpack n
-      = if (n >= argc)
-	then ([] :: [FAST_STRING])
-	else case (indexAddrOffAddr argv n) of { item ->
-	     mkFastCharString item : unpack (n + 1)
-	     }
+      | n >= argc = []
+      | otherwise =
+	 case (indexAddrOffAddr argv n) of 
+	   item -> mkFastCharString item : unpack (n + 1)
+
 \end{code}