projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
989d144
)
[project @ 1998-08-15 17:51:25 by sof]
author
sof
<unknown>
Sat, 15 Aug 1998 17:51:25 +0000
(17:51 +0000)
committer
sof
<unknown>
Sat, 15 Aug 1998 17:51:25 +0000
(17:51 +0000)
reformatted
ghc/compiler/utils/Argv.lhs
patch
|
blob
|
history
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}