view demo/more/bulkEdit.urs @ 1160:277a5db17aa1

Expand 'row types' in first paragraph of manual
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Feb 2010 16:13:09 -0500
parents c6e948ec79e9
children
line wrap: on
line source
functor Make(M : sig
                 con keyName :: Name
                 con keyType :: Type
                 val showKey : show keyType
                 val readKey : read keyType
                 val injKey : sql_injectable keyType

                 con visible :: {(Type * Type)}
                 constraint [keyName] ~ visible
                 val folder : folder visible
                 val visible : $(map Meta.meta visible)

                 con invisible :: {Type}
                 constraint [keyName] ~ invisible
                 constraint visible ~ invisible

                 val title : string
                 val isAllowed : transaction bool
                 table t : ([keyName = keyType] ++ map fst visible ++ invisible)
             end) : sig

    val main : unit -> transaction page

end