Switch another SPECIALIZE to INLINE
authoriavor.diatchki <iavor.diatchki@gmail.com>
Sat, 8 Mar 2008 22:22:29 +0000 (14:22 -0800)
committeriavor.diatchki <iavor.diatchki@gmail.com>
Sat, 8 Mar 2008 22:22:29 +0000 (14:22 -0800)
darcs-hash:20080308222229-5035a-3df41d304672dcac0f6cdefd8975173406fd65e2.gz

Codec/Binary/UTF8/Generic.hs

index 0e12193..275b621 100644 (file)
@@ -201,9 +201,7 @@ break p bs = span (not . p) bs
 
 -- | Get the first character of a byte string, if any.
 -- Malformed characters are replaced by '\0xFFFD'.
-{-# SPECIALIZE uncons :: B.ByteString -> Maybe (Char,B.ByteString) #-}
-{-# SPECIALIZE uncons :: L.ByteString -> Maybe (Char,L.ByteString) #-}
-{-# SPECIALIZE uncons :: [Word8]     -> Maybe (Char,[Word8]) #-}
+{-# INLINE uncons #-}
 uncons :: UTF8Bytes b s => b -> Maybe (Char,b)
 uncons bs = do (c,n) <- decode bs
                return (c, bdrop n bs)