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