html-entities 1.1.4.6 → 1.1.4.7

raw patch · 4 files changed

+74/−39 lines, 4 files

Files

• html-entities.cabal +59/−24
• library/HTMLEntities/Builder.hs +2/−2
• library/HTMLEntities/Decoder.hs +12/−9
• library/HTMLEntities/Prelude.hs +1/−4

@@ -1,47 +1,82 @@ cabal-version: 3.0--name: html-entities-version: 1.1.4.6-synopsis: A codec library for HTML-escaped text and HTML-entities+name:          html-entities+version:       1.1.4.7+synopsis:      A codec library for HTML-escaped text and HTML-entities description:   This library provides the following APIs for coding and decoding of   HTML-escaped text:-     * \"attoparsec\" parser-     * Text decoder-     * Encoding text builder-category: Parsing, Codecs, HTML-homepage: https://github.com/nikita-volkov/html-entities-bug-reports: https://github.com/nikita-volkov/html-entities/issues-author: Nikita Volkov <nikita.y.volkov@mail.ru>-maintainer: Nikita Volkov <nikita.y.volkov@mail.ru>-copyright: (c) 2015, Nikita Volkov-license: MIT-license-file: LICENSE +category:      Parsing, Codecs, HTML+homepage:      https://github.com/nikita-volkov/html-entities+bug-reports:   https://github.com/nikita-volkov/html-entities/issues+author:        Nikita Volkov <nikita.y.volkov@mail.ru>+maintainer:    Nikita Volkov <nikita.y.volkov@mail.ru>+copyright:     (c) 2015, Nikita Volkov+license:       MIT+license-file:  LICENSE+ source-repository head-  type: git+  type:     git   location: git://github.com/nikita-volkov/html-entities.git  common language-settings-  default-extensions: BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples-  default-language: Haskell2010+  default-extensions:+    NoImplicitPrelude+    NoMonomorphismRestriction+    BangPatterns+    ConstraintKinds+    DataKinds+    DefaultSignatures+    DeriveDataTypeable+    DeriveFoldable+    DeriveFunctor+    DeriveGeneric+    DeriveTraversable+    EmptyDataDecls+    FlexibleContexts+    FlexibleInstances+    FunctionalDependencies+    GADTs+    GeneralizedNewtypeDeriving+    LambdaCase+    LiberalTypeSynonyms+    MagicHash+    MultiParamTypeClasses+    MultiWayIf+    OverloadedStrings+    ParallelListComp+    PatternGuards+    QuasiQuotes+    RankNTypes+    RecordWildCards+    ScopedTypeVariables+    StandaloneDeriving+    TemplateHaskell+    TupleSections+    TypeFamilies+    TypeOperators+    UnboxedTuples +  default-language:   Haskell2010+ library-  import: language-settings-  hs-source-dirs: library+  import:          language-settings+  hs-source-dirs:  library   exposed-modules:     HTMLEntities.Builder     HTMLEntities.Decoder     HTMLEntities.Parser     HTMLEntities.Text+   other-modules:     HTMLEntities.NameTable     HTMLEntities.Prelude+   build-depends:-    attoparsec >=0.14 && <0.15,-    base >=4.11 && <5,-    text >=1 && <3,-    unordered-containers >=0.2 && <0.3,+    , attoparsec >=0.14 && <0.15+    , base >=4.11 && <5+    , text >=1 && <3+    , unordered-containers >=0.2 && <0.3

@@ -9,8 +9,8 @@ -- HTML-encodes the given char into a text builder. char :: Char -> Text.Builder char c =-  fromMaybe (Text.Builder.singleton c) $-    lookup c entitiesTable+  fromMaybe (Text.Builder.singleton c)+    $ lookup c entitiesTable  -- | -- HTML-encodes the given text into a text builder.

@@ -14,8 +14,9 @@ -- © htmlEntity :: Text -> Either String Text htmlEntity =-  P.parseOnly $-    P.htmlEntity <* P.endOfInput+  P.parseOnly+    $ P.htmlEntity+    <* P.endOfInput  -- | -- A decoder of a single entity.@@ -24,8 +25,9 @@ -- © htmlEntityBody :: Text -> Either String Text htmlEntityBody =-  P.parseOnly $-    P.htmlEntityBody <* P.endOfInput+  P.parseOnly+    $ P.htmlEntityBody+    <* P.endOfInput  -- | -- A decoder of a text with entities.@@ -39,8 +41,9 @@ -- €5 ¢2 htmlEncodedText :: Text -> TLB.Builder htmlEncodedText =-  fmap (either (error "HTMLEntities.Decoder: impossible happened") id) $-    P.parseOnly $-      fmap fold $-        many $-          fmap TLB.fromText P.htmlEntity <|> fmap TLB.singleton P.anyChar+  fmap (either (error "HTMLEntities.Decoder: impossible happened") id)+    $ P.parseOnly+    $ fmap fold+    $ many+    $ fmap TLB.fromText P.htmlEntity+    <|> fmap TLB.singleton P.anyChar

@@ -25,7 +25,7 @@ import Data.Fixed as Exports import Data.Foldable as Exports hiding (toList) import Data.Function as Exports hiding (id, (.))-import Data.Functor as Exports+import Data.Functor as Exports hiding (unzip) import Data.Functor.Compose as Exports import Data.IORef as Exports import Data.Int as Exports@@ -66,8 +66,5 @@ import System.Mem as Exports import System.Mem.StableName as Exports import System.Timeout as Exports-import Text.ParserCombinators.ReadP as Exports (ReadP, readP_to_S, readS_to_P)-import Text.ParserCombinators.ReadPrec as Exports (ReadPrec, readP_to_Prec, readPrec_to_P, readPrec_to_S, readS_to_Prec)-import Text.Printf as Exports (hPrintf, printf) import Unsafe.Coerce as Exports import Prelude as Exports hiding (Read, all, and, any, concat, concatMap, elem, fail, foldl, foldl1, foldr, foldr1, id, mapM, mapM_, maximum, minimum, notElem, or, product, sequence, sequence_, sum, (.))