diff options
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnBinds.lhs | 3 | ||||
| -rw-r--r-- | compiler/rename/RnSource.lhs | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs index dfbde13ded..f76090f3d9 100644 --- a/compiler/rename/RnBinds.lhs +++ b/compiler/rename/RnBinds.lhs @@ -9,6 +9,7 @@ type-synonym declarations; those cannot be done at this stage because they may be affected by renaming (which isn't fully worked out yet). \begin{code} +{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -fno-warn-tabs #-} -- The above warning supression flag is a temporary kludge. -- While working on this module you are encouraged to remove it and @@ -55,7 +56,9 @@ import FastString import Data.List ( partition, sort ) import Maybes ( orElse ) import Control.Monad +#if __GLASGOW_HASKELL__ < 709 import Data.Traversable ( traverse ) +#endif \end{code} -- ToDo: Put the annotations into the monad, so that they arrive in the proper diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 4af8be32fd..6aa666642f 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -48,7 +48,9 @@ import Util ( mapSnd ) import Control.Monad import Data.List( partition, sortBy ) +#if __GLASGOW_HASKELL__ < 709 import Data.Traversable (traverse) +#endif import Maybes( orElse, mapMaybe ) \end{code} |