Commit 4d2cd51f authored by Austin Seipp's avatar Austin Seipp
Browse files

Delete trailing whitespace in cgrun070


Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 321647d8
......@@ -179,7 +179,7 @@ newPinnedByteArray :: Int -> ST s (Ptr (), MByteArray s)
newPinnedByteArray (I# n#) = ST $ \s# ->
case newPinnedByteArray# n# s# of
(# s2#, marr# #) ->
(# s2#, (Ptr (byteArrayContents# (unsafeCoerce# marr#)),
(# s2#, (Ptr (byteArrayContents# (unsafeCoerce# marr#)),
MByteArray marr#) #)
withNewPinnedByteArray :: Int -> (Ptr () -> MByteArray s -> ST s a) -> ST s a
......
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