text-icu 0.7.0.0 → 0.7.0.1

raw patch · 7 files changed

+7/−33 lines, 7 filesdep ~basedep ~textPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base, text

API changes (from Hackage documentation)

Files

• Data/Text/ICU/Break.hsc +3/−3
• Data/Text/ICU/Break/Pure.hs +2/−2
• Data/Text/ICU/Char.hsc +0/−16
• cbits/text_icu.c +0/−6
• include/hs_text_icu.h +1/−3
• tests/Properties.hs +0/−2
• text-icu.cabal +1/−1

@@ -22,7 +22,7 @@     -- * Types       BreakIterator     , Line(..)-    , Word(..)+    , Data.Text.ICU.Break.Word(..)     -- * Breaking functions     , breakCharacter     , breakLine@@ -95,7 +95,7 @@           | Ideograph           -- ^ A word containing ideographic characters.             deriving (Eq, Show, Enum) -instance NFData Word where+instance NFData Data.Text.ICU.Break.Word where     rnf !_ = ()  -- | Break a string on character boundaries.@@ -138,7 +138,7 @@ -- punctuation marks within and following words. Characters that are not -- part of a word, such as symbols or punctuation marks, have word breaks on -- both sides.-breakWord :: LocaleName -> Text -> IO (BreakIterator Word)+breakWord :: LocaleName -> Text -> IO (BreakIterator Data.Text.ICU.Break.Word) breakWord = open (#const UBRK_WORD) asWord   where     asWord i

@@ -27,7 +27,7 @@     , brkSuffix     , brkStatus     , Line(..)-    , Word(..)+    , Data.Text.ICU.Break.Word(..)     -- * Breaking functions     , breakCharacter     , breakLine@@ -88,7 +88,7 @@ -- punctuation marks within and following words. Characters that are not -- part of a word, such as symbols or punctuation marks, have word breaks on -- both sides.-breakWord :: LocaleName -> Breaker Word+breakWord :: LocaleName -> Breaker Data.Text.ICU.Break.Word breakWord = new IO.breakWord  -- | A break in a string.

@@ -75,7 +75,6 @@     , combiningClass     , direction     , property-    , isoComment     , isMirrored     , mirror     -- ** Conversion to numbers@@ -1049,18 +1048,6 @@             then Nothing             else Just $! chr (fromIntegral r) --- | Return the ISO 10646 comment for a character.------ If a character does not have an associated comment, the empty--- string is returned.------ The ISO 10646 comment is an informative field in the Unicode--- Character Database (@UnicodeData.txt@ field 11) and is from the ISO--- 10646 names list.-isoComment :: Char -> String-isoComment c = fillString $ u_getISOComment (fromIntegral (ord c))-{-# DEPRECATED isoComment "Will be removed from next major release." #-}- charName' :: UCharNameChoice -> Char -> String charName' choice c = fillString $ u_charName (fromIntegral (ord c)) choice @@ -1098,9 +1085,6 @@ foreign import ccall unsafe "hs_text_icu.h __hs_u_charFromName" u_charFromName     :: UCharNameChoice -> CString -> Ptr UErrorCode     -> IO UChar32--foreign import ccall unsafe "hs_text_icu.h __hs_u_getISOComment" u_getISOComment-    :: UChar32 -> CString -> Int32 -> Ptr UErrorCode -> IO Int32  foreign import ccall unsafe "hs_text_icu.h __hs_u_getIntPropertyValue" u_getIntPropertyValue     :: UChar32 -> UProperty -> Int32

@@ -351,12 +351,6 @@     return u_charFromName(nameChoice, name, pErrorCode); } -int32_t __hs_u_getISOComment(UChar32 c, char *dest, int32_t destCapacity,-			     UErrorCode *pErrorCode)-{-    return u_getISOComment(c, dest, destCapacity, pErrorCode);-}- int32_t __hs_u_getIntPropertyValue(UChar32 c, UProperty which) {     return u_getIntPropertyValue(c, which);

@@ -54,8 +54,6 @@ UChar32 __hs_u_charFromName(UCharNameChoice nameChoice, 			    const char *name, 			    UErrorCode *pErrorCode);-int32_t __hs_u_getISOComment(UChar32 c, char *dest, int32_t destCapacity,-			     UErrorCode *pErrorCode); int32_t __hs_u_getIntPropertyValue(UChar32 c, UProperty which); double __hs_u_getNumericValue(UChar32 c); @@ -154,7 +152,7 @@ 			 int32_t textLength, UErrorCode *status); const UChar *__hs_uregex_getText(URegularExpression *regexp, 				 int32_t *textLength, UErrorCode *status);-UBool __hs_uregex_find(URegularExpression *regexp, int32_t startIndex, +UBool __hs_uregex_find(URegularExpression *regexp, int32_t startIndex, 		       UErrorCode *status); UBool __hs_uregex_findNext(URegularExpression *regexp, UErrorCode *status); int32_t __hs_uregex_start(URegularExpression *regexp, int32_t groupNum,

@@ -73,7 +73,6 @@ t_combiningClass = t_rnf I.combiningClass t_direction = t_rnf I.direction -- t_property p = t_rnf $ I.property p-t_isoComment = t_rnf $ I.isoComment t_isMirrored = t_rnf $ I.isMirrored t_mirror = t_rnf $ I.mirror t_digitToInt = t_rnf $ I.digitToInt@@ -98,7 +97,6 @@   , testProperty "t_combiningClass" t_combiningClass   , testProperty "t_direction" t_direction --, testProperty "t_property" t_property-  , testProperty "t_isoComment" t_isoComment   , testProperty "t_isMirrored" t_isMirrored   , testProperty "t_mirror" t_mirror   , testProperty "t_digitToInt" t_digitToInt

@@ -1,5 +1,5 @@ name:           text-icu-version:        0.7.0.0+version:        0.7.0.1 synopsis:       Bindings to the ICU library homepage:       https://github.com/bos/text-icu bug-reports:    https://github.com/bos/text-icu/issues