duckling/Duckling/Distance/ES/Corpus.hs
Lucas Hosseini 1f7290880c Distance interval support.
Summary: Interval support for distances (common types + EN rules).

Reviewed By: patapizza

Differential Revision: D6942340

fbshipit-source-id: d05ff337167b11c9186f38ca04bacf0d24a41526
2018-02-09 16:16:04 -08:00

50 lines
1.2 KiB
Haskell

-- Copyright (c) 2016-present, Facebook, Inc.
-- All rights reserved.
--
-- This source code is licensed under the BSD-style license found in the
-- LICENSE file in the root directory of this source tree. An additional grant
-- of patent rights can be found in the PATENTS file in the same directory.
{-# LANGUAGE OverloadedStrings #-}
module Duckling.Distance.ES.Corpus
( corpus
) where
import Data.String
import Prelude
import Duckling.Distance.Types
import Duckling.Locale
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {locale = makeLocale ES Nothing}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (simple Kilometre 3)
[ "3 kilómetros"
, "3 kilometros"
, "3 km"
, "3km"
, "3k"
]
, examples (simple Kilometre 3.0)
[ "3,0 km"
]
, examples (simple Mile 8)
[ "8 miles"
]
, examples (simple Metre 9)
[ "9m"
, "9 metros"
]
, examples (simple Centimetre 2)
[ "2cm"
, "2 centímetros"
]
]