Skip to content
Snippets Groups Projects
Commit 35d13456 authored by sof's avatar sof
Browse files

[project @ 1997-09-04 00:05:57 by sof]

syntax fix
parent d2b744b0
No related merge requests found
......@@ -562,7 +562,7 @@ freezeFloatArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
= case (readFloatArray# from# cur# s#) of { StateAndFloat# s1# ele ->
case (writeFloatArray# to# cur# ele s1#) of { s2# ->
copy (cur# +# 1#) from# to# s1#
}
}}
freezeDoubleArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
case rangeSize ixs of { I# n# ->
......@@ -592,7 +592,7 @@ freezeDoubleArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
= case (readDoubleArray# from# cur# s#) of { StateAndDouble# s1# ele ->
case (writeDoubleArray# to# cur# ele s1#) of { s2# ->
copy (cur# +# 1#) end# from# to# s1#
}
}}
unsafeFreezeArray :: Ix ix => MutableArray s ix elt -> ST s (Array ix elt)
unsafeFreezeByteArray :: Ix ix => MutableByteArray s ix -> ST s (ByteArray ix)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment