language-puppet-1.1.1: Puppet/NativeTypes/Notify.hs

module Puppet.NativeTypes.Notify (nativeNotify) where

import           Puppet.Interpreter.Types
import           Puppet.NativeTypes.Helpers

import qualified Data.Text                  as T

nativeNotify :: (NativeTypeName, NativeTypeMethods)
nativeNotify = ("notify", nativetypemethods parameterfunctions return)

parameterfunctions :: [(T.Text, [T.Text -> NativeTypeValidate])]
parameterfunctions =
    [("message"   , [string])
    ,("withpath"  , [string, defaultvalue "false", values ["true","false"]])
    ]