{-# LANGUAGE CPP #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE PatternSynonyms #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  Data.Text.Lens
-- Copyright   :  (C) 2012-16 Edward Kmett
-- License     :  BSD-style (see the file LICENSE)
-- Maintainer  :  Edward Kmett <ekmett@gmail.com>
-- Stability   :  experimental
-- Portability :  non-portable
--
----------------------------------------------------------------------------
module Data.Text.Lens
  ( IsText(..)
  , unpacked
  , _Text
  , pattern Text
  ) where

import           Control.Lens.Type
import           Control.Lens.Getter
import           Control.Lens.Review
import           Control.Lens.Iso
import           Control.Lens.Traversal
import qualified Data.Text as Strict
import qualified Data.Text.Strict.Lens as Strict
import qualified Data.Text.Lazy as Lazy
import qualified Data.Text.Lazy.Lens as Lazy
import           Data.Text.Lazy.Builder (Builder)

-- $setup
-- >>> import Control.Lens
-- >>> import qualified Data.Text as Strict

-- | Traversals for strict or lazy 'Text'
class IsText t where
  -- | This isomorphism can be used to 'pack' (or 'unpack') strict or lazy 'Text'.
  --
  -- @
  -- 'pack' x ≡ x '^.' 'packed'
  -- 'unpack' x ≡ x '^.' 'from' 'packed'
  -- 'packed' ≡ 'from' 'unpacked'
  -- @
  packed :: Iso' String t

  -- | Convert between strict or lazy 'Text' and a 'Builder'.
  --
  -- @
  -- 'fromText' x ≡ x '^.' 'builder'
  -- @
  builder :: Iso' t Builder

  -- | Traverse the individual characters in strict or lazy 'Text'.
  --
  -- @
  -- 'text' = 'unpacked' . 'traversed'
  -- @
  text :: IndexedTraversal' Int t Char
  text = forall t. IsText t => Iso' t String
unpacked forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (f :: * -> *) a b.
Traversable f =>
IndexedTraversal Int (f a) (f b) a b
traversed
  {-# INLINE text #-}

instance IsText String where
  packed :: Iso' String String
packed = forall a. a -> a
id
  {-# INLINE packed #-}
  text :: IndexedTraversal' Int String Char
text = forall (f :: * -> *) a b.
Traversable f =>
IndexedTraversal Int (f a) (f b) a b
traversed
  {-# INLINE text #-}
  builder :: Iso' String Builder
builder = Iso' String Text
Lazy.packed forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall t. IsText t => Iso' t Builder
builder
  {-# INLINE builder #-}

-- | This isomorphism can be used to 'unpack' (or 'pack') both strict or lazy 'Text'.
--
-- @
-- 'unpack' x ≡ x '^.' 'unpacked'
-- 'pack' x ≡ x '^.' 'from' 'unpacked'
-- @
--
-- This 'Iso' is provided for notational convenience rather than out of great need, since
--
-- @
-- 'unpacked' ≡ 'from' 'packed'
-- @
--
unpacked :: IsText t => Iso' t String
unpacked :: forall t. IsText t => Iso' t String
unpacked = forall s t a b. AnIso s t a b -> Iso b a t s
from forall t. IsText t => Iso' String t
packed
{-# INLINE unpacked #-}

-- | This is an alias for 'unpacked' that makes it clearer how to use it with @('#')@.
--
-- @
-- '_Text' = 'from' 'packed'
-- @
--
-- >>> _Text # "hello" :: Strict.Text
-- "hello"
_Text :: IsText t => Iso' t String
_Text :: forall t. IsText t => Iso' t String
_Text = forall s t a b. AnIso s t a b -> Iso b a t s
from forall t. IsText t => Iso' String t
packed
{-# INLINE _Text #-}

pattern Text :: IsText s => String -> s
pattern $bText :: forall s. IsText s => String -> s
$mText :: forall {r} {s}. IsText s => s -> (String -> r) -> ((# #) -> r) -> r
Text a <- (view _Text -> a) where
  Text String
a = forall b (m :: * -> *) t. MonadReader b m => AReview t b -> m t
review forall t. IsText t => Iso' t String
_Text String
a

instance IsText Strict.Text where
  packed :: Iso' String Text
packed = Iso' String Text
Strict.packed
  {-# INLINE packed #-}
  builder :: Iso' Text Builder
builder = Iso' Text Builder
Strict.builder
  {-# INLINE builder #-}
  text :: IndexedTraversal' Int Text Char
text = IndexedTraversal' Int Text Char
Strict.text
  {-# INLINE text #-}

instance IsText Lazy.Text where
  packed :: Iso' String Text
packed = Iso' String Text
Lazy.packed
  {-# INLINE packed #-}
  builder :: Iso' Text Builder
builder = Iso' Text Builder
Lazy.builder
  {-# INLINE builder #-}
  text :: IndexedTraversal' Int Text Char
text = IndexedTraversal' Int Text Char
Lazy.text
  {-# INLINE text #-}