diff options
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/Convert.hs | 1 | ||||
| -rw-r--r-- | compiler/hsSyn/HsBinds.hs | 1 | ||||
| -rw-r--r-- | compiler/hsSyn/HsImpExp.hs | 4 |
3 files changed, 2 insertions, 4 deletions
diff --git a/compiler/hsSyn/Convert.hs b/compiler/hsSyn/Convert.hs index fbecf9ce9e..0dc2d9aef4 100644 --- a/compiler/hsSyn/Convert.hs +++ b/compiler/hsSyn/Convert.hs @@ -23,7 +23,6 @@ import RdrName import qualified Name import Module import RdrHsSyn -import qualified OccName import OccName import SrcLoc import Type diff --git a/compiler/hsSyn/HsBinds.hs b/compiler/hsSyn/HsBinds.hs index 98f503b0d9..c541a129ce 100644 --- a/compiler/hsSyn/HsBinds.hs +++ b/compiler/hsSyn/HsBinds.hs @@ -44,7 +44,6 @@ import DynFlags import Data.Data hiding ( Fixity ) import Data.List hiding ( foldr ) import Data.Ord -import Data.Foldable ( Foldable(..) ) {- ************************************************************************ diff --git a/compiler/hsSyn/HsImpExp.hs b/compiler/hsSyn/HsImpExp.hs index 39bd9b7e18..a48fdb2f3e 100644 --- a/compiler/hsSyn/HsImpExp.hs +++ b/compiler/hsSyn/HsImpExp.hs @@ -281,8 +281,8 @@ ieWrappedName (IEName (L _ n)) = n ieWrappedName (IEPattern (L _ n)) = n ieWrappedName (IEType (L _ n)) = n -ieLWrappedName :: LIEWrappedName name -> Located name -ieLWrappedName (L l n) = L l (ieWrappedName n) +ieLWrappedName :: LIEWrappedName name -> name +ieLWrappedName (L l n) = ieWrappedName n replaceWrappedName :: IEWrappedName name1 -> name2 -> IEWrappedName name2 replaceWrappedName (IEName (L l _)) n = IEName (L l n) |