-- 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.


{-# LANGUAGE OverloadedStrings #-}

module Duckling.Distance.KM.Corpus
  ( corpus
  ) where

import Data.String
import Prelude

import Duckling.Locale
import Duckling.Distance.Types
import Duckling.Resolve
import Duckling.Testing.Types

context :: Context
context :: Context
context = Context
testContext{locale :: Locale
locale = Lang -> Maybe Region -> Locale
makeLocale Lang
KM Maybe Region
forall a. Maybe a
Nothing}

corpus :: Corpus
corpus :: Corpus
corpus = (Context
context, Options
testOptions, [Example]
allExamples)

allExamples :: [Example]
allExamples :: [Example]
allExamples = [[Example]] -> [Example]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat
  [ DistanceValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> DistanceValue
simple Unit
Kilometre Double
3)
             [ Text
"3 km"
             , Text
"៣គីឡូ"
             , Text
"បីគីឡូម៉ែត្រ"
             ]
  , DistanceValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> DistanceValue
simple Unit
Centimetre Double
2)
             [ Text
"2cm"
             , Text
"២សង់ទីម៉ែត្រ"
             , Text
"ពីរសង់ទីម៉ែត្រ"
             ]
  , DistanceValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> (Double, Double) -> DistanceValue
between Unit
Metre (Double
3, Double
5))
             [ Text
"ចាប់ពី 3 ដល់ 5 m"
             , Text
"ចន្លោះពី ៣ ដល់ ៥ម៉ែត្រ"
             , Text
"ចន្លោះ ៣ម៉ែត្រ និង ៥ម៉ែត្រ"
             , Text
"ប្រហែល ៣-៥ ម៉ែត្រ"
             , Text
"~3-5ម៉ែត្រ"
             ]
  , DistanceValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> DistanceValue
under Unit
Centimetre Double
4)
             [ Text
"តិចជាងបួនសង់ទីម៉ែត្រ"
             , Text
"មិនលើស៤សង់ទីម៉ែត្រ"
             , Text
"ក្រោម៤សង់ទីម៉ែត្រ"
             , Text
"យ៉ាងច្រើន៤សង់ទីម៉ែត្រ"
             ]
  , DistanceValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> DistanceValue
above Unit
Millimetre Double
10)
             [ Text
"ច្រើនជាងដប់មីលីម៉ែត្រ"
             , Text
"មិនតិចជាងដប់មីលីម៉ែត្រ"
             , Text
"លើសពីដប់មីលីម៉ែត្រ"
             , Text
"យ៉ាងតិចដប់មីលីម៉ែត្រ"
             ]
  ]