From 4e18e75280c0507f718cc8fade6fa5ef6ee919e4 Mon Sep 17 00:00:00 2001
From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Sun, 23 Aug 2009 22:06:55 +0000
Subject: Backends.Hoogle: eliminate warnings

---
 src/Haddock/Backends/Hoogle.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src')

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 ""
 
-- 
cgit v1.2.3