projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
678c354
)
[project @ 1999-10-13 10:43:15 by simonmar]
author
simonmar
<unknown>
Wed, 13 Oct 1999 10:43:15 +0000
(10:43 +0000)
committer
simonmar
<unknown>
Wed, 13 Oct 1999 10:43:15 +0000
(10:43 +0000)
typo
ghc/compiler/utils/PrimPacked.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/PrimPacked.lhs
b/ghc/compiler/utils/PrimPacked.lhs
index
fe01b0b
..
96c17f1
100644
(file)
--- a/
ghc/compiler/utils/PrimPacked.lhs
+++ b/
ghc/compiler/utils/PrimPacked.lhs
@@
-185,7
+185,7
@@
new_ps_array size = ST $ \ s ->
#if __GLASGOW_HASKELL__ < 400
case (newCharArray# size s) of { StateAndMutableByteArray# s2# barr# ->
STret s2# (MutableByteArray bot barr#) }
#if __GLASGOW_HASKELL__ < 400
case (newCharArray# size s) of { StateAndMutableByteArray# s2# barr# ->
STret s2# (MutableByteArray bot barr#) }
-#elsif __GLASGOW_HASKELL__ < 405
+#elif __GLASGOW_HASKELL__ < 405
case (newCharArray# size s) of { (# s2#, barr# #) ->
(# s2#, MutableByteArray bot barr# #) }
#else
case (newCharArray# size s) of { (# s2#, barr# #) ->
(# s2#, MutableByteArray bot barr# #) }
#else