cndict 0.4.6 → 0.4.7

raw patch · 2 files changed

+10/−3 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 +9/−2

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

@@ -127,6 +127,10 @@               entry2 <- entries2               return $ Just (entry1, entry2)   where+    filterCompact :: [[Entry]] -> [[Entry]]+    filterCompact lst =+      let mostCompact = minimum (map length lst)+      in [ entries | entries <- lst, length entries == mostCompact ]     filterLongest :: [[Entry]] -> [[Entry]]     filterLongest lst =       let len = sum . map (T.length . entrySimplified)@@ -138,7 +142,7 @@           longest = maximum [ T.length (entrySimplified e1) + T.length (entrySimplified e2)                     | (e1,e2) <- lst                     , T.length (entrySimplified e1) < longestFirst ]-      in filterLongest $ nub $+      in filterCompact $ filterLongest $ nub $          [ [e1,e2]          | (e1,e2) <- lst          , T.length (entrySimplified e1) < longest@@ -236,7 +240,10 @@         , ("蛋糕发起来", ["蛋糕","发","起来"])         , ("管理的人才", ["管理","的","人才"])         , ("轻快乐曲", ["轻快","乐曲"])-        , ("高明和", ["高明","和"]) ]+        , ("高明和", ["高明","和"])+        , ("一下子之间", ["一下子","之间"])+        , ("我绝没想到", ["我","绝","没想到"])+        , ("没想到会", ["没想到","会"]) ]  flat :: [Token] -> [Text] flat = map worker