Fix build on GHC < 7.10
authorryan.gl.scott <ryan.gl.scott@gmail.com>
Tue, 30 Jun 2015 14:56:40 +0000 (14:56 +0000)
committerryan.gl.scott <ryan.gl.scott@gmail.com>
Tue, 30 Jun 2015 14:56:40 +0000 (14:56 +0000)
Control/Monad/Trans/Error.hs
Data/Functor/Classes.hs

index 315a2c1..54d6a05 100644 (file)
@@ -61,6 +61,10 @@ import Control.Exception (IOException)
 import Control.Monad
 import Control.Monad.Fix
 
+import Data.Foldable (Foldable(foldMap))
+import Data.Monoid (mempty)
+import Data.Traversable (Traversable(traverse))
+
 -- | An exception to be thrown.
 --
 -- Minimal complete definition: 'noMsg' or 'strMsg'.
index f99bc1a..d85904a 100644 (file)
@@ -67,6 +67,7 @@ module Data.Functor.Classes (
 
 import Control.Applicative (Const(Const))
 import Data.Functor.Identity (Identity(Identity))
+import Data.Monoid (mappend)
 
 -- | Lifting of the 'Eq' class to unary type constructors.
 class Eq1 f where