mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
Define a Monoid instance.
This commit is contained in:
parent
17a9b20222
commit
869b054f2b
@ -21,3 +21,7 @@ simplify (Graph graph) = Graph (G.simplify graph)
|
|||||||
|
|
||||||
instance Semigroup (Graph v) where
|
instance Semigroup (Graph v) where
|
||||||
(<>) = Class.overlay
|
(<>) = Class.overlay
|
||||||
|
|
||||||
|
instance Monoid (Graph v) where
|
||||||
|
mempty = Class.empty
|
||||||
|
mappend = (<>)
|
||||||
|
Loading…
Reference in New Issue
Block a user