aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-02-16 17:02:07 +0000
committerIan Lynagh <ian@well-typed.com>2013-02-16 17:02:07 +0000
commit1f3344df532e561c51de2f07950834e852043f14 (patch)
treef0fab7122f20469d22883cf01c1f0b2a2d86f0ef /src/Haddock/Backends/Xhtml.hs
parentc93bf533d218f256ab80a2881c6ecbaa5e9eae0b (diff)
Follow changes in base
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs3
1 files changed, 3 insertions, 0 deletions
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