Commit 65815144 authored by sewardj's avatar sewardj

[project @ 2000-12-13 11:30:12 by sewardj]

Track renaming of newCharArray# to newByteArray#
parent 584d954c
......@@ -187,9 +187,12 @@ new_ps_array size = ST $ \ s ->
#elif __GLASGOW_HASKELL__ < 405
case (newCharArray# size s) of { (# s2#, barr# #) ->
(# s2#, MutableByteArray bot barr# #) }
#else
#elif __GLASGOW_HASKELL__ < 411
case (newCharArray# size s) of { (# s2#, barr# #) ->
(# s2#, MutableByteArray bot bot barr# #) }
#else /* 411 and higher */
case (newByteArray# size s) of { (# s2#, barr# #) ->
(# s2#, MutableByteArray bot bot barr# #) }
#endif
where
bot = error "new_ps_array"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment