-- 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.Quantity.KM.Corpus
  ( corpus
  ) where

import Data.String
import Prelude

import Duckling.Locale
import Duckling.Quantity.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
  [ QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple Unit
Cup Double
3 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"បីកែវ"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple Unit
Bowl Double
1 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"១ចាន"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple Unit
Pint Double
15 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"ដប់ប្រាំថូ"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple (Text -> Unit
Custom Text
"For Persons") Double
2 (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"មនុស្ស"))
             [ Text
"មនុស្ស២នាក់"
             , Text
"មនុស្សពីរនាក់"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple (Text -> Unit
Custom Text
"For Buildings") Double
8 (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"ផ្ទះ"))
             [ Text
"ផ្ទះ៨ខ្នង"
             , Text
"ផ្ទះប្រាំបីខ្នង"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
simple Unit
Gram Double
1000 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"មួយពាន់ក្រាម"
             , Text
"មួយគីឡូក្រាម"
             , Text
"មួយលានមីលីក្រាម"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> (Double, Double) -> Maybe Text -> QuantityValue
between Unit
Gram (Double
2,Double
7) Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"ចាប់ពី 2 ដល់ 7 ក្រាម"
             , Text
"ចន្លោះពី ២ ដល់ ៧ក្រាម"
             , Text
"ចន្លោះ ២ក្រាម និង ៧ក្រាម"
             , Text
"ប្រហែល ២-៧ ក្រាម"
             , Text
"~2-7ក្រាម"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
under Unit
Tablespoon Double
4 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"តិចជាងបួនស្លាបព្រា"
             , Text
"មិនលើស៤ស្លាបព្រា"
             , Text
"ក្រោម៤ស្លាបព្រា"
             , Text
"យ៉ាងច្រើន៤ស្លាបព្រា"
             ]
  , QuantityValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> Maybe Text -> QuantityValue
above Unit
Bowl Double
10 Maybe Text
forall a. Maybe a
Nothing)
             [ Text
"ច្រើនជាងដប់ចាន"
             , Text
"មិនតិចជាងដប់ចាន"
             , Text
"លើសពីដប់ចាន"
             , Text
"យ៉ាងតិចដប់ចាន"
             ]
  ]