Lines Matching refs:Strict
34 import qualified Data.ByteString as Strict hiding ( unpack, pack, span )
35 import qualified Data.ByteString.Char8 as Strict ( unpack, pack, span )
54 instance BufferType Strict.ByteString where
94 strictBufferOp :: BufferOp Strict.ByteString
97 { buf_hGet = Strict.hGet
98 , buf_hGetContents = Strict.hGetContents
99 , buf_hPut = Strict.hPut
100 , buf_hGetLine = Strict.hGetLine
101 , buf_append = Strict.append
102 , buf_concat = Strict.concat
103 , buf_fromStr = Strict.pack
104 , buf_toStr = Strict.unpack
105 , buf_snoc = Strict.snoc
106 , buf_splitAt = Strict.splitAt
107 , buf_span = Strict.span
108 , buf_empty = Strict.empty
109 , buf_isLineTerm = \ b -> Strict.length b == 2 && p_crlf == b ||
110 Strict.length b == 1 && p_lf == b
111 , buf_isEmpty = Strict.null
114 p_crlf = Strict.pack crlf
115 p_lf = Strict.pack lf
125 , buf_hGetLine = \ h -> Strict.hGetLine h >>= \ l -> return (Lazy.fromChunks [l])
147 { buf_hGet = \ h n -> buf_hGet strictBufferOp h n >>= return . Strict.unpack
148 , buf_hGetContents = \ h -> buf_hGetContents strictBufferOp h >>= return . Strict.unpack
149 , buf_hPut = \ h s -> buf_hPut strictBufferOp h (Strict.pack s)
150 , buf_hGetLine = \ h -> buf_hGetLine strictBufferOp h >>= return . Strict.unpack
158 case Strict.span p (Strict.pack a) of
159 (x,y) -> (Strict.unpack x, Strict.unpack y)