de2aaca · distributed-process

git.iko.soy/distributed-process

Unpack the Char

commitde2aacadb6a8e86a26f722457698d5b50b2a29ee authorEdsko de Vries <edsko@edsko.net> dateWed 15 Aug 2012, 15:06 (14 years ago) parent2573b85

2 files changed+2−2

unifiedsplit

not-bytestring/src/Data/NotByteString.hs+1−1

@@ -22,7 +22,7 @@ import qualified Data.ByteString as BS (ByteString)

2222import qualified Data.ByteString.Char8 as BSC (pack, foldr)

2323import Control.Applicative ((<$>))

2424

25−data ByteString = Nil | Cons !Char !ByteString

25+data ByteString = Nil | Cons {-# UNPACK #-} !Char !ByteString

2626 deriving (Typeable, Eq, Ord)

2727

2828instance 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)

2525import qualified Data.NotByteString as Strict (ByteString(Nil, Cons), foldr)

2626import Control.Applicative ((<$>))

2727

28−data ByteString = Nil | Cons !Char ByteString

28+data ByteString = Nil | Cons {-# UNPACK #-} !Char ByteString

2929 deriving (Typeable, Eq, Ord)

3030

3131instance Show ByteString where