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