also match old-style -adh ending

jimregan · facebook-github-bot · commit 8af3ae5d8a52 · 2017-06-26T09:19:20.000-07:00
Summary: Closes facebook#47 Reviewed By: niteria Differential Revision: D5318111 Pulled By: patapizza fbshipit-source-id: 963450b
diff --git a/Duckling/Ordinal/GA/Corpus.hs b/Duckling/Ordinal/GA/Corpus.hs
@@ -26,6 +26,11 @@ allExamples :: [Example]
 allExamples = concat
   [ examples (OrdinalData 6)
              [ "séu"
+             , "6a"
+             , "6d"
+             , "06u"
+             , "6 ú"
+             , "0006 adh"
              ]
   , examples (OrdinalData 1)
              [ "chead"
diff --git a/Duckling/Ordinal/GA/Rules.hs b/Duckling/Ordinal/GA/Rules.hs
@@ -107,7 +107,7 @@ ruleOrdinalDigits :: Rule
 ruleOrdinalDigits = Rule
   { name = "ordinal (digits)"
   , pattern =
-    [ regex "0*(\\d+) ?(a|d|(\x00fa|u))"
+    [ regex "0*(\\d+) ?(adh|a|d|\x00fa|u)"
     ]
   , prod = \tokens -> case tokens of
       (Token RegexMatch (GroupMatch (match:_)):_) -> ordinal <$> parseInt match

Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ ruleOrdinalDigits :: Rule`
`107`	`107`	`ruleOrdinalDigits = Rule`
`108`	`108`	`{ name = "ordinal (digits)"`
`109`	`109`	`, pattern =`
`110`		`- [ regex "0*(\\d+) ?(a\|d\|(\x00fa\|u))"`
	`110`	`+ [ regex "0*(\\d+) ?(adh\|a\|d\|\x00fa\|u)"`
`111`	`111`	`]`
`112`	`112`	`, prod = \tokens -> case tokens of`
`113`	`113`	`(Token RegexMatch (GroupMatch (match:_)):_) -> ordinal <$> parseInt match`