mirror of
https://github.com/facebook/duckling.git
synced 2024-08-18 01:30:35 +03:00
7889f396f3
Summary: Pull Request resolved: https://github.com/facebook/duckling/pull/533 In recent versions of Data.Some the name of the constructor, `This` has changed name to `Some`. This has become rather problematic for us to migrate so we're just going to remove the dependency. The meat of this diff is adding the type `Seal` to `Duckling.Types`. That type replaces `Some`. Reviewed By: pepeiborra Differential Revision: D23929459 fbshipit-source-id: 8ff4146ecba4f1119a17899961b2d877547f6e4f
29 lines
887 B
Haskell
29 lines
887 B
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.
|
|
|
|
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
{-# OPTIONS -fno-full-laziness #-}
|
|
|
|
module Main (main) where
|
|
|
|
import Control.Monad
|
|
import System.Environment
|
|
|
|
import Duckling.Debug
|
|
import Duckling.Dimensions.Types
|
|
import Duckling.Locale
|
|
|
|
main :: IO ()
|
|
main = do
|
|
(repeatCount :: Int) <- read . head <$> getArgs
|
|
void $ replicateM repeatCount $ void $ do
|
|
debug en "Monday 3rd at 9.30am or 2.30pm, Saturday 8th at 10.30am, Tuesday 11th at 2pm, Wednesday 12th at 2.30pm, Friday 14th at 12.30pm xx" [Seal Time]
|
|
debug es "Horario es de Lunes a Viernes de 2 pm a 10 pm. S\195\161bado de 9 am a 7 pm" [Seal Time]
|
|
where
|
|
en = makeLocale EN Nothing
|
|
es = makeLocale ES Nothing
|