Twiddles
--HG--
extra : convert_revision : 8e40018d24c0a1ef8ac0774f98aa3829ed6c3753
commitf69f2acf2280364a3baa05b2b32a1f2c5ac87a72
authorBryan O'Sullivan <bos@serpentine.com>
dateThu 15 Jul 2010, 21:49 (16 years ago)
parent7636c96
Data/Text/UnsafeChar.hs+2−2
@@ -48,12 +48,12 @@ unsafeWrite marr i c
4848 | n < 0x10000 = do
4949 assert (i >= 0) . assert (i < A.length marr) $
5050 A.unsafeWrite marr i (fromIntegral n)
51− return (i+1)
51+ return $! i+1
5252 | otherwise = do
5353 assert (i >= 0) . assert (i < A.length marr - 1) $
5454 A.unsafeWrite marr i lo
5555 A.unsafeWrite marr (i+1) hi
56− return (i+2)
56+ return $! i+2
5757 where n = ord c
5858 m = n - 0x10000
5959 lo = fromIntegral $ (m `shiftR` 10) + 0xD800