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
|
||||
(<>) = Class.overlay
|
||||
|
||||
instance Monoid (Graph v) where
|
||||
mempty = Class.empty
|
||||
mappend = (<>)
|
||||
|
Loading…
Reference in New Issue
Block a user