diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 22:06:55 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 22:06:55 +0000 |
| commit | 4e18e75280c0507f718cc8fade6fa5ef6ee919e4 (patch) | |
| tree | 5d221ede38beaecbe158869888152d62935241d8 /src/Haddock/Backends | |
| parent | 6a08e15d7cb5b8cb60a70092447b8f445fbfe261 (diff) | |
Backends.Hoogle: eliminate warnings
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 75b97442..3412033d 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -23,7 +23,6 @@ import Haddock.Utils hiding (out) import GHC import Outputable -import Control.Monad import Data.Char import Data.List import Data.Maybe @@ -199,9 +198,6 @@ ppCtor dat subdocs con = doc (lookupCon subdocs (con_name con)) --------------------------------------------------------------------- -- DOCUMENTATION -ldoc :: Outputable o => Maybe (LHsDoc o) -> [String] -ldoc = doc . liftM unL - doc :: Outputable o => Maybe (HsDoc o) -> [String] doc = docWith "" |