diff options
| author | Neil Mitchell <unknown> | 2008-08-20 07:59:13 +0000 |
|---|---|---|
| committer | Neil Mitchell <unknown> | 2008-08-20 07:59:13 +0000 |
| commit | 939dff29771afd044876c849eb31be0bea2866c5 (patch) | |
| tree | e0d1df371177e61f5a367530b1f9e4fd7c84bc9a /src/Haddock/Backends/Hoogle.hs | |
| parent | 1f3b576d0fde01973367a3876878482449ea8194 (diff) | |
Simplify the code by removing not-to-important use of <.> in the Hoogle back end
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -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] ++ |