{-# LANGUAGE OverloadedStrings #-}
module Duckling.Ordinal.CA.Corpus
( corpus ) where
import Data.String
import Prelude
import Duckling.Locale
import Duckling.Ordinal.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus :: Corpus
corpus = (Context
testContext {locale :: Locale
locale = Lang -> Maybe Region -> Locale
makeLocale Lang
CA Maybe Region
forall a. Maybe a
Nothing}, Options
testOptions, [Example]
allExamples)
allExamples :: [Example]
allExamples :: [Example]
allExamples = [[Example]] -> [Example]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat
[ OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
1)
[ Text
"primer"
, Text
"primera"
, Text
"primers"
, Text
"primeres"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
2)
[ Text
"segon"
, Text
"segona"
, Text
"segons"
, Text
"segones"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
3)
[ Text
"tercer"
, Text
"tercera"
, Text
"tercers"
, Text
"terceres"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
4)
[ Text
"quart"
, Text
"quarta"
, Text
"quarts"
, Text
"quartes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
5)
[ Text
"cinquè"
, Text
"cinquena"
, Text
"cinquens"
, Text
"cinquenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
6)
[ Text
"sisè"
, Text
"sisena"
, Text
"sisens"
, Text
"sisenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
7)
[ Text
"setè"
, Text
"setena"
, Text
"setens"
, Text
"setenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
8)
[ Text
"vuitè"
, Text
"vuitena"
, Text
"vuitens"
, Text
"vuitenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
9)
[ Text
"novè"
, Text
"novena"
, Text
"novens"
, Text
"novenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
10)
[ Text
"desè"
, Text
"desena"
, Text
"desens"
, Text
"desenes"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
11)
[ Text
"onzè"
, Text
"onzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
12)
[ Text
"dotzè"
, Text
"dotzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
13)
[ Text
"tretzè"
, Text
"tretzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
14)
[ Text
"catorzè"
, Text
"catorzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
15)
[ Text
"quinzè"
, Text
"quinzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
16)
[ Text
"setzè"
, Text
"setzena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
17)
[ Text
"dissetè"
, Text
"dissetena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
18)
[ Text
"divuitè"
, Text
"divuitena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
19)
[ Text
"dinovè"
, Text
"dinovena"
]
, OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
20)
[ Text
"vintè"
, Text
"vintena"
]
]