Derive Semigroup & Monoid instances for Facet.Graph.

facet-lang · Oct 23, 2020 · 36339a2 · 36339a2
1 parent ac89909
commit 36339a2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Facet/Graph.hs b/src/Facet/Graph.hs
@@ -23,6 +23,7 @@ import           Facet.Stack
 import           Prelude hiding (lookup)
 
 newtype Graph = Graph { getGraph :: Map.Map MName (FilePath, Module) }
+  deriving (Semigroup, Monoid)
 
 insert :: FilePath -> Module -> Graph -> Graph
 insert p m@Module{ name } = Graph . Map.insert name (p, m) . getGraph