Commit 1cac8f21 authored by Steffen Michels's avatar Steffen Michels

added generic gEq derive for Maybe

parent ff51b971
......@@ -11,7 +11,7 @@ derive JSONEncode TonicModule, TonicFunc, TExpr, TPriority, TAssoc, TLit
derive JSONDecode TonicModule, TonicFunc, TExpr, TPriority, TAssoc, TLit
derive gEq TonicModule, TonicFunc, TExpr, TPriority, TAssoc, TLit
derive gEq TonicModule, TonicFunc, TExpr, TPriority, TAssoc, TLit, Maybe
instance == TonicModule where
(==) tm1 tm2 = tm1.tm_name == tm2.tm_name
......
......@@ -21,7 +21,7 @@ from Text.HTML import :: SVGStrokeDashArray, :: SVGStrokeDashOffset, :: SVGStrok
//Common library types
derive JSONEncode (), HtmlTag, HtmlAttr, Either, MaybeError, Timestamp
derive JSONDecode (), HtmlTag, HtmlAttr, Either, MaybeError, Timestamp
derive gEq (), HtmlTag, HtmlAttr, Either, MaybeError, Timestamp, JSONNode, (->), Dynamic
derive gEq (), HtmlTag, HtmlAttr, Either, MaybeError, Timestamp, JSONNode, (->), Dynamic, Maybe
derive gDefault HtmlAttr
derive gEditor HtmlAttr
derive gText HtmlAttr
......
......@@ -16,7 +16,7 @@ import StdArray
// Generic instances for common library types
derive JSONEncode Either, MaybeError, HtmlTag, HtmlAttr
derive JSONDecode Either, MaybeError, HtmlTag, HtmlAttr
derive gEq Either, MaybeError, HtmlTag, HtmlAttr, Timestamp, JSONNode
derive gEq Either, MaybeError, HtmlTag, HtmlAttr, Timestamp, JSONNode, Maybe
gEq{|()|} _ _ = True
JSONEncode{|()|} _ () = [JSONNull]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment