From 939dff29771afd044876c849eb31be0bea2866c5 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Wed, 20 Aug 2008 07:59:13 +0000 Subject: Simplify the code by removing not-to-important use of <.> in the Hoogle back end --- src/Haddock/Backends/Hoogle.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/Haddock/Backends') 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] ++ -- cgit v1.2.3