{-|
Module:     Codec.Parser.Text
Copyright:  Jeremy List
License:    BSD-3
Maintainer: quick.dudley@gmail.com

'Phase's for processing 'TS.Text' objects and their lazy versions.
-}
module Codec.Phaser.Text (
  unpackText,
  unpackLazyText
 ) where

import qualified Data.Text as TS
import qualified Data.Text.Lazy as TL

import Control.Applicative

import Codec.Phaser.Core

-- | A 'Phase' which takes 'TS.Text's and yields their individual characters
unpackText :: (Monoid p) => Phase p TS.Text Char ()
unpackText = (go >> unpackText) <|> return () where
  go = get >>= TS.foldr (\w r -> yield w >> r) (return ())

-- | A 'Phase' which takes 'TL.Text's and yields their individual characters
unpackLazyText :: (Monoid p) => Phase p TL.Text Char ()
unpackLazyText = (go >> unpackLazyText) <|> return () where
  go = get >>= TL.foldr (\w r -> yield w >> r) (return ())