aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-11-04 04:09:44 +0000
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-11-04 04:09:44 +0000
commitfc462513143aa0ec3fbed879a3483e376173d9fc (patch)
tree6c6b5e8d4b4a9e09f4a7eabc2f902e39037d0f66 /haddock-api/src/Haddock/Interface
parent267e2c2e8226790f5d294ac06941ac5498608db4 (diff)
Fix warnings
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
-rw-r--r--haddock-api/src/Haddock/Interface/AttachInstances.hs3
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs4
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.<+>