github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Define a Monoid instance.

Browse Source
This commit is contained in:
Rob Rix 2018-05-11 12:11:03 -04:00
parent 17a9b20222
commit 869b054f2b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Graph.hs
View File

@ -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 = (<>)