cleaning up warnings.

This commit is contained in:
Kazu Yamamoto 2014-01-08 09:55:06 +09:00
parent 0f4d80fe6b
commit 1e7eeff41c

View File

@ -45,7 +45,6 @@ import Outputable
import PprTyThing
import StringBuffer
import TcType
import TcRnTypes
import CoreSyn
import qualified InstEnv
@ -53,6 +52,8 @@ import qualified Pretty
import qualified StringBuffer as SB
#if __GLASGOW_HASKELL__ >= 707
import FamInstEnv
#else
import TcRnTypes
#endif
#if __GLASGOW_HASKELL__ >= 706
@ -68,7 +69,6 @@ import HscTypes (liftIO)
import Pretty
#endif
#if __GLASGOW_HASKELL__ < 706
import Control.Arrow hiding ((<+>))
import Data.Convertible
@ -306,7 +306,7 @@ typeForUser = pprTypeForUser False
deSugar :: TypecheckedModule -> LHsExpr Id -> HscEnv
-> IO (Maybe CoreSyn.CoreExpr)
#if __GLASGOW_HASKELL__ >= 707
deSugar tcm e hs_env = snd <$> deSugarExpr hs_env e
deSugar _ e hs_env = snd <$> deSugarExpr hs_env e
#else
deSugar tcm e hs_env = snd <$> deSugarExpr hs_env modu rn_env ty_env e
where