Skip to content
Snippets Groups Projects

Add patches for bifunctors and fgl

Merged Matthew Pickering requested to merge wip/bifunctor into master
4 files
+ 249
2
Compare changes
  • Side-by-side
  • Inline
Files
4
+ 42
0
 
diff --git a/Data/Graph/Inductive/PatriciaTree.hs b/Data/Graph/Inductive/PatriciaTree.hs
 
index 20c9dae..cc44ef2 100644
 
--- a/Data/Graph/Inductive/PatriciaTree.hs
 
+++ b/Data/Graph/Inductive/PatriciaTree.hs
 
@@ -1,6 +1,7 @@
 
{-# LANGUAGE BangPatterns, CPP, ScopedTypeVariables #-}
 
#if __GLASGOW_HASKELL__ >= 702
 
{-# LANGUAGE DeriveGeneric #-}
 
+{-# LANGUAGE DeriveFunctor #-}
 
#endif
 
 
-- |An efficient implementation of 'Data.Graph.Inductive.Graph.Graph'
 
@@ -60,7 +61,7 @@ import Control.Arrow (second)
 
 
newtype Gr a b = Gr (GraphRep a b)
 
#if __GLASGOW_HASKELL__ >= 702
 
- deriving (Generic)
 
+ deriving (Generic, Functor)
 
#endif
 
 
type GraphRep a b = IntMap (Context' a b)
 
diff --git a/Data/Graph/Inductive/Tree.hs b/Data/Graph/Inductive/Tree.hs
 
index f8f9087..88e275e 100644
 
--- a/Data/Graph/Inductive/Tree.hs
 
+++ b/Data/Graph/Inductive/Tree.hs
 
@@ -1,6 +1,7 @@
 
{-# LANGUAGE CPP #-}
 
#if __GLASGOW_HASKELL__ >= 702
 
{-# LANGUAGE DeriveGeneric #-}
 
+{-# LANGUAGE DeriveFunctor #-}
 
#endif
 
 
-- (c) 1999 - 2002 by Martin Erwig [see file COPYRIGHT]
 
@@ -39,7 +40,7 @@ import Control.Arrow (first, second)
 
 
newtype Gr a b = Gr (GraphRep a b)
 
#if __GLASGOW_HASKELL__ >= 702
 
- deriving (Generic)
 
+ deriving (Generic, Functor)
 
#endif
 
 
type GraphRep a b = Map Node (Context' a b)
Loading