hxt-unicode 9.0.2.2 → 9.0.2.4
raw patch · 2 files changed
+22/−17 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- hxt-unicode.cabal +8/−3
- src/Data/String/Unicode.hs +14/−14
hxt-unicode.cabal view
@@ -1,5 +1,5 @@ Name: hxt-unicode-Version: 9.0.2.2+Version: 9.0.2.4 Synopsis: Unicode en-/decoding functions for utf8, iso-latin-* and other encodings Description: Unicode encoding and decoding functions for utf8, iso-latin-* and somes other encodings, used in the Haskell XML Toolbox.@@ -10,12 +10,13 @@ License-file: LICENSE Author: Uwe Schmidt Maintainer: Uwe Schmidt <uwe@fh-wedel.de>+Homepage: https://github.com/UweSchmidt/hxt Copyright: Copyright (c) 2010- Uwe Schmidt Stability: Stable Category: Text Build-type: Simple -Cabal-version: >=1.4+Cabal-version: >=1.6 Library Exposed-modules: @@ -31,4 +32,8 @@ hs-source-dirs: src ghc-options: -Wall- ghc-prof-options: -auto-all -caf-all+ ghc-prof-options: -caf-all++Source-Repository head+ Type: git+ Location: git://github.com/UweSchmidt/hxt.git
src/Data/String/Unicode.hs view
@@ -61,15 +61,15 @@ ) where -import Data.Char ( toUpper )+import Data.Char (toUpper) -import Data.Char.Properties.XMLCharProps( isXml1ByteChar- , isXmlLatin1Char- )-import Data.Char.IsoLatinTables+import Data.Char.IsoLatinTables+import Data.Char.Properties.XMLCharProps (isXml1ByteChar,+ isXmlLatin1Char) -import Data.String.UTF8Decoding ( decodeUtf8, decodeUtf8EmbedErrors )-import Data.String.EncodingNames+import Data.String.EncodingNames+import Data.String.UTF8Decoding (decodeUtf8,+ decodeUtf8EmbedErrors) -- ------------------------------------------------------------ @@ -559,7 +559,7 @@ -- the table of supported output encoding schemes and the associated -- conversion functions from Unicode -type StringFct = String -> String+type StringFct = String -> String outputEncodingTable' :: [(String, (Char -> StringFct))] outputEncodingTable'@@ -628,10 +628,10 @@ -- substitute all Unicode characters, that are not legal 1-byte -- UTF-8 XML characters by a character reference. -unicodeCharToXmlEntity' :: Char -> StringFct+unicodeCharToXmlEntity' :: Char -> StringFct unicodeCharToXmlEntity' c- | isXml1ByteChar c = (c :)- | otherwise = ((intToCharRef . fromEnum $ c) ++)+ | isXml1ByteChar c = (c :)+ | otherwise = ((intToCharRef . fromEnum $ c) ++) -- ------------------------------------------------------------ @@ -639,10 +639,10 @@ -- substitute all Unicode characters, that are not legal latin1 -- UTF-8 XML characters by a character reference. -unicodeCharToLatin1' :: Char -> StringFct+unicodeCharToLatin1' :: Char -> StringFct unicodeCharToLatin1' c- | isXmlLatin1Char c = (c :)- | otherwise = ((intToCharRef . fromEnum $ c) ++)+ | isXmlLatin1Char c = (c :)+ | otherwise = ((intToCharRef . fromEnum $ c) ++) -- ------------------------------------------------------------