duckling/Duckling/Distance/CS/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

62 lines
1.4 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.CS.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 CS Nothing}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (simple Kilometre 3)
[ "3 kilometry"
, "3 km"
, "3km"
]
, examples (simple Mile 8)
[ "8 mil"
, "osm mil"
]
, examples (simple Metre 1)
[ "1m"
, "1 metr"
]
, examples (simple Metre 2)
[ "2m"
, "2 metry"
]
, examples (simple Metre 9)
[ "9m"
, "9 metrů"
]
, examples (simple Centimetre 1)
[ "1cm"
, "1 centimetr"
]
, examples (simple Centimetre 2)
[ "2cm"
, "2 centimetry"
]
, examples (simple Centimetre 9)
[ "9cm"
, "9 centimetrů"
]
]