git.iko.soy/text
on master help sign in
encodeUtf8_1: drop an unnecessary type signature

The value that was having too general a type inferred is now a pointer, so inference doesn't accidentally overgeneralize.

commitd0e2738b5ec96a7a2fbefa021b7c201226cffa86 authorBryan O'Sullivan <bos@serpentine.com> dateTue 7 Jan 2014, 01:16 (13 years ago) parent1eea671
1 file changed−4
compare with master
unifiedsplit
Data/Text/Encoding.hs−4
Data/Text/Encoding.hs−4
@@ -452,10 +452,6 @@ encodeUtf8_1 (Text arr off len)
452452 fp' <- resize k fp ptr
453453 go n fp' (unsafeForeignPtrToPtr fp')
454454 do1 ptr n w k = poke8 ptr w >> k (n+1) (ptr `plusPtr` 1)
455− loop :: (Word16 -> Int -> ForeignPtr Word8 -> Ptr Word8
456− -> (Int -> Ptr Word8 -> IO ByteString)
457− -> IO ByteString) -> Int -> ForeignPtr Word8 -> Ptr Word8
458− -> IO ByteString
459455 loop act !n0 fp !ptr0 = hot n0 ptr0
460456 where hot !n !ptr
461457 | n == offLen = do