Commit b597fa5b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix build with 6.10

parent 56a437ee
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Norman likes local bindings -- Norman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Norman likes local bindings -- Norman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Norman likes local bindings -- Norman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Norman likes local bindings -- Norman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Norman likes local bindings -- Norman likes local bindings
-- This module is pure representation and should be imported only by -- This module is pure representation and should be imported only by
......
...@@ -8,7 +8,6 @@ module FamInst ( ...@@ -8,7 +8,6 @@ module FamInst (
import HscTypes import HscTypes
import FamInstEnv import FamInstEnv
import TcMType import TcMType
import TcType
import TcRnMonad import TcRnMonad
import TyCon import TyCon
import Name import Name
......
...@@ -64,7 +64,6 @@ module TcSMonad ( ...@@ -64,7 +64,6 @@ module TcSMonad (
import HscTypes import HscTypes
import BasicTypes import BasicTypes
import Type import Type
import TcRnTypes
import Inst import Inst
import InstEnv import InstEnv
...@@ -96,6 +95,8 @@ import HsBinds -- for TcEvBinds stuff ...@@ -96,6 +95,8 @@ import HsBinds -- for TcEvBinds stuff
import Id import Id
import FunDeps import FunDeps
import TcRnTypes
import Control.Monad import Control.Monad
import Data.IORef import Data.IORef
\end{code} \end{code}
......
{-# OPTIONS_GHC -XNoMonoLocalBinds -fno-warn-missing-signatures #-} {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
#if __GLASGOW_HASKELL__ >= 611
{-# OPTIONS_GHC -XNoMonoLocalBinds #-}
#endif
-- Roman likes local bindings -- Roman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment