1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed d68dd99

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.

  • Participants
  • Parent commits 465289b
  • Branches default

Comments (0)

Files changed (1)

File Data/Text/Encoding.hs

View file
  • Ignore whitespace
     fp' <- resize k fp ptr
     go n fp' (unsafeForeignPtrToPtr fp')
   do1 ptr n w k = poke8 ptr w >> k (n+1) (ptr `plusPtr` 1)
-  loop :: (Word16 -> Int -> ForeignPtr Word8 -> Ptr Word8
-           -> (Int -> Ptr Word8 -> IO ByteString)
-           -> IO ByteString) -> Int -> ForeignPtr Word8 -> Ptr Word8
-          -> IO ByteString
   loop act !n0 fp !ptr0 = hot n0 ptr0
     where hot !n !ptr
             | n == offLen = do