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
35 lines
1.0 KiB
Haskell
35 lines
1.0 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.
|
|
|
|
|
|
{-# 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 "My number is 123" [Seal PhoneNumber,Seal Distance,Seal Numeral,Seal Email]
|
|
debug en "Wednesday 5:00PM 3/29/2017" [Seal Numeral,Seal Time]
|
|
debug zh "12:30pm" [Seal Time]
|
|
debug en "tomorrow at 4pm" [Seal Time]
|
|
debug en "Tomorrow at 12.30?" [Seal Time]
|
|
debug en "Wednesday 9am" [Seal Time]
|
|
debug en "Sure do! Will 11:30 work?" [Seal Time,Seal AmountOfMoney]
|
|
debug en "8:00am" [Seal Time]
|
|
where
|
|
en = makeLocale EN Nothing
|
|
zh = makeLocale ZH Nothing
|