duckling/Duckling/Distance/CS/Corpus.hs
rfranek@email.cz 325fa69304 added Distance for CZ language
Summary:
Added first Czech language file
Closes https://github.com/facebookincubator/duckling/pull/16

Reviewed By: niteria

Differential Revision: D5044499

Pulled By: patapizza

fbshipit-source-id: c736a35
2017-05-12 08:19:20 -07:00

47 lines
1.1 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.Lang
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {lang = CS}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (DistanceValue Kilometre 3)
[ "3 kilometry"
, "3 km"
, "3km"
, "3k"
]
, examples (DistanceValue Mile 8)
[ "8 mil"
, "osm mil"
]
, examples (DistanceValue Metre 9)
[ "9m"
, "9 metr"
, "9 metry"
]
, examples (DistanceValue Centimetre 2)
[ "2cm"
, "2 centimetry"
]
]