-- 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 GADTs #-} {-# LANGUAGE NoRebindableSyntax #-} {-# LANGUAGE OverloadedStrings #-} module Duckling.Time.NL.NL.Rules ( rulesBackwardCompatible ) where import Duckling.Time.Helpers import Duckling.Types rulesBackwardCompatible :: [Rule] rulesBackwardCompatible :: [Rule] rulesBackwardCompatible = [(Text, String, TimeData)] -> [Rule] mkRuleHolidays [ ( Text "Sinterklaas", String "sinterklaas(avond)?|pakjesavond", Int -> Int -> TimeData monthDay Int 12 Int 5 ) ]