From fc462513143aa0ec3fbed879a3483e376173d9fc Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Tue, 4 Nov 2014 04:09:44 +0000
Subject: Fix warnings

---
 haddock-api/src/Haddock/Convert.hs                   | 3 +--
 haddock-api/src/Haddock/Interface/AttachInstances.hs | 3 +--
 haddock-api/src/Haddock/Interface/Create.hs          | 4 ++--
 3 files changed, 4 insertions(+), 6 deletions(-)

(limited to 'haddock-api/src')

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 803c1a3b..d0d44f1a 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -235,7 +235,6 @@ synifyTyCon coax tc
   use_gadt_syntax = any (not . isVanillaDataCon) (tyConDataCons tc)
   consRaw = map (synifyDataCon use_gadt_syntax) (tyConDataCons tc)
   cons = rights consRaw
-  dataConErrs = lefts consRaw
   -- "deriving" doesn't affect the signature, no need to specify any.
   alg_deriv = Nothing
   defn = HsDataDefn { dd_ND      = alg_nd
@@ -248,7 +247,7 @@ synifyTyCon coax tc
   [] -> return $
         DataDecl { tcdLName = name, tcdTyVars = tyvars, tcdDataDefn = defn
                  , tcdFVs = placeHolderNames }
-  ms -> Left $ unlines dataConErrs
+  dataConErrs -> Left $ unlines dataConErrs
 
 -- User beware: it is your responsibility to pass True (use_gadt_syntax)
 -- for any constructor that would be misrepresented by omitting its
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.<+>
-- 
cgit v1.2.3