From 9a08ccdc1fc3f2e1e6be4673d6feb3c7ecda432c Mon Sep 17 00:00:00 2001 From: Marcin Szamotulski Date: Sat, 23 Jan 2021 08:28:19 +0100 Subject: [PATCH] A bit of cleaning --- haddock-api/src/Haddock.hs | 11 +++++++---- haddock-api/src/Haddock/Backends/Xhtml.hs | 1 - 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 622524350d..d954ffcd92 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -1,7 +1,10 @@ -{-# OPTIONS_GHC -Wwarn #-} -{-# LANGUAGE CPP, ScopedTypeVariables, OverloadedStrings, Rank2Types #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE TupleSections #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE Rank2Types #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TupleSections #-} +{-# OPTIONS_GHC -Wwarn #-} ----------------------------------------------------------------------------- -- | -- Module : Haddock diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index 4f5513a967..d3613047f4 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -483,7 +483,6 @@ ppJsonIndex odir maybe_source_url maybe_wiki_url unicode pkg qual_opt ifaces ins jie { jieLink = makeRelative odir (takeDirectory ifaceFile) FilePath. jieLink jie } - ppHtmlIndex :: FilePath -> String -> Maybe String