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

import Data.String
import Prelude

import Duckling.Locale
import Duckling.Resolve
import Duckling.Volume.Types
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
  [ VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
simple Unit
Litre Double
1)
             [ Text
"1 លីត្រ"
             , Text
"1l"
             , Text
"១លីត្រ"
             ]
  , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
simple Unit
Litre Double
0.5)
             [ Text
"កន្លះលីត្រ"
             , Text
"១/២លីត្រ"
             ]
  , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
simple Unit
Litre Double
0.25)
             [ Text
"មួយភាគបួនលីត្រ"
             , Text
"១/៤លីត្រ"
             ]
  , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
simple Unit
Millilitre Double
1)
             [ Text
"1 មីលីលីត្រ"
             , Text
"1ml"
             , Text
"១មីលីលីត្រ"
             ]
 , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> (Double, Double) -> VolumeValue
between Unit
Litre (Double
2,Double
7))
             [ Text
"ចាប់ពី 2 ដល់ 7 l"
             , Text
"ចន្លោះពី ២ ដល់ ៧លីត្រ"
             , Text
"ចន្លោះ ២លីត្រ និង ៧លីត្រ"
             , Text
"ប្រហែល ២-៧ លីត្រ"
             , Text
"~2-7លីត្រ"
             ]
  , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
under Unit
Millilitre Double
500)
             [ Text
"តិចជាងប្រាំរយមីលីលីត្រ"
             , Text
"មិនលើសប្រាំរយមីលីលីត្រ"
             , Text
"ក្រោមប្រាំរយមីលីលីត្រ"
             , Text
"យ៉ាងច្រើនប្រាំរយមីលីលីត្រ"
             ]
  , VolumeValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Unit -> Double -> VolumeValue
above Unit
Millilitre Double
500)
             [ Text
"ច្រើនជាងប្រាំរយមីលីលីត្រ"
             , Text
"មិនតិចជាងប្រាំរយមីលីលីត្រ"
             , Text
"លើសពីប្រាំរយមីលីលីត្រ"
             , Text
"យ៉ាងតិចប្រាំរយមីលីលីត្រ"
             ]
  ]