Defaults.dcl 481 Bytes
Newer Older
1
definition module iTasks.Internal.Generic.Defaults
2

3
import Data.GenDefault
4

5
derive gDefault (->), Bool, Char, Maybe, Either, MaybeError, Map, JSONNode, HtmlTag, Timestamp
6

7
from Text.GenJSON import :: JSONNode
8 9 10
from Text.HTML import :: HtmlTag
from Data.Maybe import :: Maybe
from Data.Either import :: Either
11
from Data.Error import :: MaybeError
12 13 14 15
from Data.Map import :: Map
from System.Time import :: Timestamp

// Wrapper functions for updating
16
defaultValue :: a | gDefault{|*|} a