Simplify the code by removing not-to-important use of <.> in the Hoogle back end

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] ++