diff --git a/Example.hs b/Example.hs
--- a/Example.hs
+++ b/Example.hs
@@ -2,6 +2,7 @@
 
 module Main where
 
+import           Control.Applicative
 import           Data.Aeson
 import           Data.HashMap.Strict (HashMap)
 import qualified Data.HashMap.Strict as H
diff --git a/changelog.txt b/changelog.txt
--- a/changelog.txt
+++ b/changelog.txt
@@ -1,3 +1,7 @@
+# 0.7.1
+
++ Support GHC 7.8 again.
+
 # 0.7
 
 Change error type from Text to ValidationFailure.
diff --git a/hjsonschema.cabal b/hjsonschema.cabal
--- a/hjsonschema.cabal
+++ b/hjsonschema.cabal
@@ -1,5 +1,5 @@
 name:                   hjsonschema
-version:                0.7.0.0
+version:                0.7.1.0
 synopsis:               JSON Schema library
 homepage:               https://github.com/seagreen/hjsonschema
 license:                MIT
@@ -9,6 +9,7 @@
 category:               Data
 build-type:             Simple
 cabal-version:          >=1.10
+tested-with:            GHC == 7.8.4, GHC == 7.10.2
 extra-source-files:     changelog.txt
                         draft4.json
                         JSON-Schema-Test-Suite/tests/draft4/*.json
@@ -35,7 +36,8 @@
   other-extensions:     TemplateHaskell
   ghc-options:          -Wall
   build-depends:        aeson                >= 0.7   && < 0.10
-                      , base                 >= 4.6   && < 4.9
+                        -- 4.6 doesn't have a Traversable Either instance:
+                      , base                 >= 4.7   && < 4.9
                       , bytestring           >= 0.10  && < 0.11
                       , containers           >= 0.5   && < 0.6
                       , file-embed           >= 0.0.8 && < 0.0.10
diff --git a/src/Data/JsonSchema.hs b/src/Data/JsonSchema.hs
--- a/src/Data/JsonSchema.hs
+++ b/src/Data/JsonSchema.hs
@@ -8,7 +8,8 @@
   , module Data.JsonSchema.Draft4
   ) where
 
-import           Control.Monad.Except
+
+import           Control.Monad.Except (MonadError, MonadIO, join, throwError)
 import qualified Data.ByteString.Lazy as LBS
 import           Data.Foldable
 import qualified Data.HashMap.Strict as H
@@ -22,6 +23,9 @@
 import           Data.JsonSchema.Reference
 import           Import
 
+-- For GHCs before 7.10:
+import           Prelude hiding (sequence)
+
 -- | Take a schema. Retrieve every document either it or its
 -- subschemas include via the "$ref" keyword. Load a 'Graph' out
 -- with them.
@@ -34,7 +38,8 @@
 -- is provided by the user. This allows restrictions to be added, e.g. rejecting
 -- non-local URLs.
 fetchReferencedSchemas'
-  :: forall t e m err. (IsString t, MonadError t e, Traversable e, MonadIO m)
+  -- The `Functor m` declaration is for GHCs before 7.10.
+  :: forall m e t err. (MonadIO m, Functor m, MonadError t e, Traversable e, IsString t)
   => (Text -> m (e LBS.ByteString))
   -> Spec err
   -> RawSchema
diff --git a/src/Data/JsonSchema/Core.hs b/src/Data/JsonSchema/Core.hs
--- a/src/Data/JsonSchema/Core.hs
+++ b/src/Data/JsonSchema/Core.hs
@@ -8,6 +8,9 @@
 import           Data.JsonSchema.Reference
 import           Import
 
+-- For GHCs before 7.10:
+import           Prelude                   hiding (concat, sequence)
+
 --------------------------------------------------
 -- * Primary API
 --------------------------------------------------
@@ -73,9 +76,9 @@
 data ValidationFailure err = ValidationFailure
   { _failureName :: err
   , _failureInfo :: FailureInfo
-  } deriving (Show, Read)
+  } deriving (Show)
 
 data FailureInfo = FailureInfo
   { _validatingData :: Value
   , _offendingData  :: Value
-  } deriving (Show, Read)
+  } deriving (Show)
diff --git a/src/Data/JsonSchema/Draft4/Any.hs b/src/Data/JsonSchema/Draft4/Any.hs
--- a/src/Data/JsonSchema/Draft4/Any.hs
+++ b/src/Data/JsonSchema/Draft4/Any.hs
@@ -14,6 +14,9 @@
 import           Data.JsonSchema.Reference
 import           Import
 
+-- For GHCs before 7.10:
+import           Prelude                   hiding (any)
+
 -- | http://json-schema.org/latest/json-schema-validation.html#anchor76
 --
 --  > The value of this keyword MUST be an array.