From 1f3344df532e561c51de2f07950834e852043f14 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Sat, 16 Feb 2013 17:02:07 +0000
Subject: Follow changes in base

---
 src/Haddock/Backends/Xhtml.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 3251477a..fde2da69 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -10,6 +10,7 @@
 -- Stability   :  experimental
 -- Portability :  portable
 -----------------------------------------------------------------------------
+{-# LANGUAGE CPP #-}
 module Haddock.Backends.Xhtml (
   ppHtml, copyHtmlBits,
   ppHtmlIndex, ppHtmlContents,
@@ -33,7 +34,9 @@ import Text.XHtml hiding ( name, title, p, quote )
 import Haddock.GhcUtils
 
 import Control.Monad         ( when, unless )
+#if !MIN_VERSION_base(4,7,0)
 import Control.Monad.Instances ( ) -- for Functor Either a
+#endif
 import Data.Char             ( toUpper )
 import Data.List             ( sortBy, groupBy, intercalate )
 import Data.Maybe
-- 
cgit v1.2.3