facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2025-01-06 04:53:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use lambda-case for Rule production

Browse Source 
Summary: change Rule production functions to lambda-case

Reviewed By: patapizza

Differential Revision: D7424413

fbshipit-source-id: edac0290d310578f633ff0208434d1eca038ad9c
This commit is contained in:
Aaron Yue 2018-04-12 10:05:50 -07:00 committed by Facebook Github Bot
parent 4ef255e577
commit fe0807dced
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Duckling/Numeral/ZH/Rules.hs
View File

@ -34,7 +34,7 @@ ruleInteger = Rule
, pattern =
[ regex "(〇|零|一|二|两|兩|三|四|五|六|七|八|九|十)"
]
, prod = \tokens -> case tokens of
, prod = \case
(Token RegexMatch (GroupMatch (match:_)):_) ->
HashMap.lookup match integerMap >>= integer
_ -> Nothing
@ -66,7 +66,7 @@ ruleNumeralsPrefixWithNegativeOrMinus = Rule
[ regex "-|负|負"
, Predicate isPositive
]
, prod = \tokens -> case tokens of
, prod = \case
(_:Token Numeral nd:_) -> double (TNumeral.value nd * (-1))
_ -> Nothing
}
@ -77,7 +77,7 @@ ruleDecimalWithThousandsSeparator = Rule
, pattern =
[ regex "(\\d+(,\\d\\d\\d)+\\.\\d+)"
]
, prod = \tokens -> case tokens of
, prod = \case
(Token RegexMatch (GroupMatch (match:_)):_) ->
parseDouble (Text.replace "," Text.empty match) >>= double
_ -> Nothing
@ -89,7 +89,7 @@ ruleDecimalNumeral = Rule
, pattern =
[ regex "(\\d*\\.\\d+)"
]
, prod = \tokens -> case tokens of
, prod = \case
(Token RegexMatch (GroupMatch (match:_)):_) -> parseDecimal True match
_ -> Nothing
}
@ -101,7 +101,7 @@ ruleNumeral = Rule
[ dimension Numeral
, regex "个|個"
]
, prod = \tokens -> case tokens of
, prod = \case
(token:_) -> Just token
_ -> Nothing
}