{-#LANGUAGE MultiParamTypeClasses #-}
module Text.Parcom.Text.Lazy
where

import Prelude hiding (head, null, tail)
import Data.Text.Lazy
import Text.Parcom.Stream

instance Stream Text Char where
    peek = head
    atEnd = null
    consume = tail

instance Listish Text Char where
    toList = unpack
    fromList = pack