cndict 0.5.0 → 0.5.1

raw patch · 2 files changed

+10/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• cndict.cabal +1/−1
• src/Data/Chinese/Pinyin.hs +9/−1

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                cndict-version:             0.5.0+version:             0.5.1 synopsis:            Chinese/Mandarin <-> English dictionary, Chinese lexer. -- description: license:             PublicDomain

@@ -12,8 +12,16 @@ import           Data.Text  (Text) import qualified Data.Text  as T +restoreUmlaut :: Text -> Text+restoreUmlaut =+  T.replace "u:" "ü" .+  T.replace "ū:" "ǖ" .+  T.replace "ú:" "ǘ" .+  T.replace "ǔ:" "ǚ" .+  T.replace "ù:" "ǜ"+ toToneMarks :: Text -> Text-toToneMarks = modToneNumber toTonal+toToneMarks = restoreUmlaut . modToneNumber toTonal  fromToneMarks :: Text -> Text fromToneMarks txt = clearToneMarks $