cndict 0.2.1 → 0.2.2

raw patch · 2 files changed

+15/−13 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• cndict.cabal +1/−1
• src/Data/Chinese/CCDict.hs +14/−12

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

@@ -96,11 +96,11 @@       let len = T.length (entryChinese entry)        case lookupMatches (T.drop len key) trie of-        Nothing -> return [entry]-        Just rest -> do+        Just rest | len < longest -> do           next <- rest           guard (T.length (entryChinese next) + len > longest)           return [entry, next]+        _nothing -> return [entry]   --------------------------------------------------@@ -154,16 +154,18 @@     cases =         [ ("多工作", ["多","工作"])         , ("有电话", ["有","电话"]) -	-- , ("回电话", ["回","电话"]) -- Hm, we fail on this one.-	, ("不知道", ["不","知道"])-	, ("定时间", ["定","时间"])-	-- , ("这位子", ["这","位子"]) -- Hm, we fail on this one.-	, ("十分钟", ["十","分钟"])-	, ("有电梯", ["有","电梯"])-        -- , ("家中餐馆", ["家","中餐馆"])-	, ("后生活", ["后","生活"])-	, ("不愿意", ["不","愿意"])-	, ("点出发", ["点","出发"])]+      	-- , ("回电话", ["回","电话"]) -- Hm, we fail on this one.+      	, ("不知道", ["不","知道"])+      	, ("定时间", ["定","时间"])+      	-- , ("这位子", ["这","位子"]) -- Hm, we fail on this one.+      	, ("十分钟", ["十","分钟"])+      	, ("有电梯", ["有","电梯"])+              -- , ("家中餐馆", ["家","中餐馆"])+      	, ("后生活", ["后","生活"])+      	, ("不愿意", ["不","愿意"])+      	, ("点出发", ["点","出发"])+        , ("不会跳舞", ["不会","跳舞"]) ]+ flat tokens = [ entryChinese entry | KnownWord entry <- tokens ]  type NonDet = Tree [Token]