aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNeil Mitchell <unknown>2008-08-20 07:59:13 +0000
committerNeil Mitchell <unknown>2008-08-20 07:59:13 +0000
commit939dff29771afd044876c849eb31be0bea2866c5 (patch)
treee0d1df371177e61f5a367530b1f9e4fd7c84bc9a
parent1f3b576d0fde01973367a3876878482449ea8194 (diff)
Simplify the code by removing not-to-important use of <.> in the Hoogle back end
-rw-r--r--src/Haddock/Backends/Hoogle.hs6
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] ++