diff --git a/Data/ByteString/Internal/Type.hs b/Data/ByteString/Internal/Type.hs
index 534dad3d..7f042410 100644
--- a/Data/ByteString/Internal/Type.hs
+++ b/Data/ByteString/Internal/Type.hs
@@ -337,7 +337,6 @@ instance Read ByteString where
 instance IsList ByteString where
   type Item ByteString = Word8
   fromList = packBytes
-  fromListN n = fst . packUptoLenBytes n
   toList   = unpackBytes
 
 -- | Beware: 'fromString' truncates multi-byte characters to octets.