git.iko.soy/distributed-process
on master help sign in
Unpack the Char
de2aacaEdsko de Vries
not-bytestring/src/Data/NotByteString.hs+1−1
compare with master
unifiedsplit
@@ -22,7 +22,7 @@ import qualified Data.ByteString as BS (ByteString)
22import qualified Data.ByteString.Char8 as BSC (pack, foldr)
22import qualified Data.ByteString.Char8 as BSC (pack, foldr)
23import Control.Applicative ((<$>))
23import Control.Applicative ((<$>))
24
24
25−data ByteString = Nil | Cons !Char !ByteString
25+data ByteString = Nil | Cons {-# UNPACK #-} !Char !ByteString
26 deriving (Typeable, Eq, Ord)
26 deriving (Typeable, Eq, Ord)
27
27
28instance Show ByteString where
28instance Show ByteString where
not-bytestring/src/Data/NotByteString/Lazy.hs+1−1
@@ -25,7 +25,7 @@ import qualified Data.ByteString.Lazy.Char8 as BSLC (pack, foldr)
25import qualified Data.NotByteString as Strict (ByteString(Nil, Cons), foldr)
25import qualified Data.NotByteString as Strict (ByteString(Nil, Cons), foldr)
26import Control.Applicative ((<$>))
26import Control.Applicative ((<$>))
27
27
28−data ByteString = Nil | Cons !Char ByteString
28+data ByteString = Nil | Cons {-# UNPACK #-} !Char ByteString
29 deriving (Typeable, Eq, Ord)
29 deriving (Typeable, Eq, Ord)
30
30
31instance Show ByteString where
31instance Show ByteString where