mirror of
https://github.com/facebook/duckling.git
synced 2024-11-30 23:33:33 +03:00
5460d8df0e
Summary: Support custom dimensions Had to move the definition of `Dimension` from `Duckling.Dimensions.Types` to `Duckling.Types` to avoid cyclic imports between these two modules. A sample custom dimension is in `exe/CustomDimensionExample.hs`. Limitations of custom dimensions: - All rules for a custom dimension must be in the same module with the definition of the custom dimension. Otherwise there will be cyclic imports, because the definition of the dimension and the rules refer to each other. - The custom dimension must be specified when using `parse`, since there's no way to get all the existing custom dimensions. Reviewed By: patapizza Differential Revision: D7630360 fbshipit-source-id: 30e12dcb33611f5692c4f5949de377bf61b75e1e
52 lines
1.7 KiB
Haskell
52 lines
1.7 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 GADTs #-}
|
|
|
|
|
|
module Duckling.Rules.SV
|
|
( defaultRules
|
|
, langRules
|
|
, localeRules
|
|
) where
|
|
|
|
import Duckling.Dimensions.Types
|
|
import Duckling.Locale
|
|
import Duckling.Types
|
|
import qualified Duckling.AmountOfMoney.SV.Rules as AmountOfMoney
|
|
import qualified Duckling.Duration.SV.Rules as Duration
|
|
import qualified Duckling.Distance.SV.Rules as Distance
|
|
import qualified Duckling.Ordinal.SV.Rules as Ordinal
|
|
import qualified Duckling.Numeral.SV.Rules as Numeral
|
|
import qualified Duckling.Time.SV.Rules as Time
|
|
import qualified Duckling.TimeGrain.SV.Rules as TimeGrain
|
|
|
|
defaultRules :: Some Dimension -> [Rule]
|
|
defaultRules = langRules
|
|
|
|
localeRules :: Region -> Some Dimension -> [Rule]
|
|
localeRules region (This (CustomDimension dim)) = dimLocaleRules region dim
|
|
localeRules _ _ = []
|
|
|
|
langRules :: Some Dimension -> [Rule]
|
|
langRules (This AmountOfMoney) = AmountOfMoney.rules
|
|
langRules (This Distance) = Distance.rules
|
|
langRules (This Duration) = Duration.rules
|
|
langRules (This Email) = []
|
|
langRules (This Numeral) = Numeral.rules
|
|
langRules (This Ordinal) = Ordinal.rules
|
|
langRules (This PhoneNumber) = []
|
|
langRules (This Quantity) = []
|
|
langRules (This RegexMatch) = []
|
|
langRules (This Temperature) = []
|
|
langRules (This Time) = Time.rules
|
|
langRules (This TimeGrain) = TimeGrain.rules
|
|
langRules (This Url) = []
|
|
langRules (This Volume) = []
|
|
langRules (This (CustomDimension dim)) = dimLangRules SV dim
|