commit
dcc2d138f4
@ -125,12 +125,11 @@ data FieldView sub master = FieldView
|
|||||||
|
|
||||||
data Field sub master a = Field
|
data Field sub master a = Field
|
||||||
{ fieldParse :: [Text] -> GHandler sub master (Either (SomeMessage master) (Maybe a))
|
{ fieldParse :: [Text] -> GHandler sub master (Either (SomeMessage master) (Maybe a))
|
||||||
-- | ID, name, attrs, (invalid text OR legimiate result), required?
|
, fieldView :: Text -- ^ ID
|
||||||
, fieldView :: Text
|
-> Text -- ^ Name
|
||||||
-> Text
|
-> [(Text, Text)] -- ^ Attributes
|
||||||
-> [(Text, Text)]
|
-> Either Text a -- ^ Either (invalid text) or (legitimate result)
|
||||||
-> Either Text a
|
-> Bool -- ^ Required?
|
||||||
-> Bool
|
|
||||||
-> GWidget sub master ()
|
-> GWidget sub master ()
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user