Fix warnings

2 files changed, 3 insertions, 4 deletions

diff --git a/haddock-api/src/Haddock/Interface/AttachInstances.hs b/haddock-api/src/Haddock/Interface/AttachInstances.hs
index 1351d38b..1341e57f 100644
--- a/haddock-api/src/Haddock/Interface/AttachInstances.hs
+++ b/haddock-api/src/Haddock/Interface/AttachInstances.hs
@@ -25,14 +25,13 @@ import Data.Function (on)
 import qualified Data.Map as Map
 import qualified Data.Set as Set
 
-import Bag (listToBag)
 import Class
 import DynFlags
 import ErrUtils
 import FamInstEnv
 import FastString
 import GHC
-import GhcMonad (withSession, logWarnings)
+import GhcMonad (withSession)
 import Id
 import InstEnv
 import MonadUtils (liftIO)
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index 047960c6..00c119fa 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -620,8 +620,8 @@ hiDecl dflags t = do
       return Nothing
     Just x -> case tyThingToLHsDecl x of
       Left m -> liftErrMsg (tell [bugWarn m]) >> return Nothing
-      Right (m, t) -> liftErrMsg (tell $ map bugWarn m)
-                      >> return (Just $ noLoc t)
+      Right (m, t') -> liftErrMsg (tell $ map bugWarn m)
+                      >> return (Just $ noLoc t')
     where
       warnLine x = O.text "haddock-bug:" O.<+> O.text x O.<>
                    O.comma O.<+> O.quotes (O.ppr t) O.<+>