text-icu-normalized 0.1.4.1 → 0.1.5.1

raw patch · 2 files changed

+9/−3 lines, 2 files

Files

• Source/Library/Data/Text/ICU/Normalized/NFC.hs +8/−2
• text-icu-normalized.cabal +1/−1

@@ -23,7 +23,8 @@     lazy,     lower,     upper,-    utf8+    utf8,+    utf8ByteString     ) where  import qualified Data.Text.ICU as ICU@@ -39,6 +40,7 @@ import Data.Data import Data.Typeable import Control.Lens hiding (strict, lazy)+import Data.ByteString (ByteString)  -- | An NFC-normalized Data.Text newtype NFCText = NFCText Text deriving (Show, Generic, Data, Typeable)@@ -52,9 +54,13 @@ lazy ∷ Prism' NFCText LT.Text lazy = prism' (review strict ∘ LT.toStrict) (\t → LT.fromStrict <$> preview _NFCText t) +-- | Prism between 'NFCText' and a utf-8 encoded 'ByteString+utf8ByteString ∷ Prism' NFCText ByteString+utf8ByteString = prism' (NFCText ∘ decodeUtf8) (Just ∘ encodeUtf8 ∘ view _NFCText)+ -- | Prism between 'NFCText' and a utf-8 encoded 'String' utf8 :: Prism' NFCText String-utf8 = prism' (fromString) (Just ∘ C8.unpack ∘ encodeUtf8 ∘ view _NFCText)+utf8 = prism' (fromString) (Just ∘ C8.unpack ∘ view utf8ByteString)  -- | Convert 'NFCText' to lower case. lower :: Getter NFCText NFCText

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                text-icu-normalized-version:             0.1.4.1+version:             0.1.5.1 synopsis:            Dealing with Strict Text in NFC normalization. description:         Handle Text in NFC normalization. homepage:            https://gitlab.com/theunixman/text-icu-normalized