diff options
| -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 |