Skip to content
Snippets Groups Projects
Commit 1cac8f21 authored by Steffen Michels's avatar Steffen Michels
Browse files

added generic gEq derive for Maybe

parent ff51b971
No related branches found
No related tags found
No related merge requests found
......@@ -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]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment