KO/Time: Fix typo

Summary:
Found a common mistake.
Closes https://github.com/facebookincubator/duckling/pull/38

Reviewed By: niteria

Differential Revision: D5182189

Pulled By: patapizza

fbshipit-source-id: 182a325

Duckling/Ranking/Classifiers/KO.hs

@@ -64,13 +64,6 @@ classifiers
                                    [("integer - TYPE 1: powers of teninteger (21..99) - TYPE 2",
                                      -0.40546510810816444)],
                                n = 1}}),
-       ("the day after tomorrow - \45236\51068\47784\47000",
-        Classifier{okData =
-                     ClassData{prior = 0.0, unseen = -1.3862943611198906,
-                               likelihoods = HashMap.fromList [("", 0.0)], n = 2},
-                   koData =
-                     ClassData{prior = -infinity, unseen = -0.6931471805599453,
-                               likelihoods = HashMap.fromList [], n = 0}}),
        ("<time> <part-of-day>",
         Classifier{okData =
                      ClassData{prior = -0.8472978603872037, unseen = -4.143134726391533,
@@ -1369,6 +1362,13 @@ classifiers
                      ClassData{prior = -0.37037378829689427,
                                unseen = -3.4339872044851463,
                                likelihoods = HashMap.fromList [("", 0.0)], n = 29}}),
+       ("the day after tomorrow - \45236\51068\47784\47112",
+        Classifier{okData =
+                     ClassData{prior = 0.0, unseen = -1.3862943611198906,
+                               likelihoods = HashMap.fromList [("", 0.0)], n = 2},
+                   koData =
+                     ClassData{prior = -infinity, unseen = -0.6931471805599453,
+                               likelihoods = HashMap.fromList [], n = 0}}),
        ("compose by multiplication",
         Classifier{okData =
                      ClassData{prior = 0.0, unseen = -1.791759469228055,

Duckling/Time/KO/Corpus.hs

@@ -173,8 +173,8 @@ allExamples = concat
              [ "이번주 수요일"
              ]
   , examples (datetime (2013, 2, 14, 0, 0, 0) Day)
-             [ "내일모래"
-             , "모래"
+             [ "내일모레"
+             , "모레"
              ]
   , examples (datetime (2013, 2, 13, 17, 0, 0) Hour)
              [ "내일 저녁다섯시"

Duckling/Time/KO/Rules.hs

@@ -51,9 +51,9 @@ ruleLiberationDay = Rule
 
 ruleTheDayAfterTomorrow :: Rule
 ruleTheDayAfterTomorrow = Rule
-  { name = "the day after tomorrow - 내일모래"
+  { name = "the day after tomorrow - 내일모레"
   , pattern =
-    [ regex "(\xb0b4\xc77c)?\xbaa8\xb798"
+    [ regex "(\xb0b4\xc77c)?\xbaa8\xb808"
     ]
   , prod = \_ ->
       tt . cycleNthAfter False TG.Day 1 $ cycleNth TG.Day 1