diff options
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 86f4a20d..e314ac33 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -16,11 +16,7 @@ import Haddock.GHC import Haddock.GHC.Utils import Haddock.Types import Haddock.Utils -#if __GLASGOW_HASKELL__ >= 609 import GHC -#else -import GHC hiding ((<.>)) -#endif import SrcLoc import Outputable @@ -39,7 +35,7 @@ prefix = ["-- Hoogle documentation, generated by Haddock" ppHoogle :: String -> String -> String -> Maybe (HsDoc RdrName) -> [Interface] -> FilePath -> IO () ppHoogle package version synopsis prologue ifaces odir = do - let filename = package <.> "txt" + let filename = package ++ ".txt" contents = prefix ++ docWith (drop 2 $ dropWhile (/= ':') synopsis) prologue ++ ["@package " ++ package] ++ |