mirror of
https://github.com/facebook/duckling.git
synced 2024-11-29 01:03:44 +03:00
41800a3171
Summary: No need to reinvent the wheel when `dependent-sum` has what we need. I re-export `Some(..)` from `Duckling.Dimensions.Types` to cut down on import bloat. Instead of a `Read` instance I created a `fromName` function. Reviewed By: zilberstein Differential Revision: D4710014 fbshipit-source-id: 1d4e86d
23 lines
674 B
Haskell
23 lines
674 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. An additional grant
|
|
-- of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import Prelude
|
|
import Data.String
|
|
|
|
import Duckling.Core
|
|
import Duckling.Data.TimeZone
|
|
|
|
main :: IO ()
|
|
main = do
|
|
tzs <- loadTimeZoneSeries "/usr/share/zoneinfo/"
|
|
refTime <- currentReftime tzs "America/Los_Angeles"
|
|
let context = Context {referenceTime = refTime, lang = EN}
|
|
print $ parse "tomorrow at 6ish pm" context [This Time]
|