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

[ghc-hetmet.git] / ghc / compiler / utils / Argv.lhs

diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
index 1420bfc..d3df602 100644 (file)
--- 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}