diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-16 17:02:07 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-16 17:02:07 +0000 |
| commit | 1f3344df532e561c51de2f07950834e852043f14 (patch) | |
| tree | f0fab7122f20469d22883cf01c1f0b2a2d86f0ef | |
| parent | c93bf533d218f256ab80a2881c6ecbaa5e9eae0b (diff) | |
Follow changes in base
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 3 |
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 |