From 939dff29771afd044876c849eb31be0bea2866c5 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
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(-)

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