[commit: ghc] master: Remove unnecessary and deprecated inclusions of Typeable.h (117b6b8)
git at git.haskell.org
git at git.haskell.org
Wed Nov 13 03:39:59 UTC 2013
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/117b6b8d8088ff237fc72f75e290fc30207e7bed/ghc
>---------------------------------------------------------------
commit 117b6b8d8088ff237fc72f75e290fc30207e7bed
Author: Patrick Palka <patrick at parcs.ath.cx>
Date: Fri Nov 8 17:27:50 2013 -0500
Remove unnecessary and deprecated inclusions of Typeable.h
The build system would've complained loudly about these inclusions if it
weren't for #8527.
>---------------------------------------------------------------
117b6b8d8088ff237fc72f75e290fc30207e7bed
compiler/basicTypes/Module.lhs | 2 --
compiler/basicTypes/Name.lhs | 2 --
compiler/basicTypes/NameSet.lhs | 1 -
compiler/basicTypes/OccName.lhs | 2 --
compiler/basicTypes/SrcLoc.lhs | 2 --
compiler/basicTypes/Var.lhs | 1 -
compiler/types/Class.lhs | 1 -
compiler/utils/Bag.lhs | 2 --
8 files changed, 13 deletions(-)
diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs
index 27d3c52..f9e7942 100644
--- a/compiler/basicTypes/Module.lhs
+++ b/compiler/basicTypes/Module.lhs
@@ -73,8 +73,6 @@ module Module
emptyModuleSet, mkModuleSet, moduleSetElts, extendModuleSet, elemModuleSet
) where
-#include "Typeable.h"
-
import Config
import Outputable
import Unique
diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs
index 55edc8d..8233039 100644
--- a/compiler/basicTypes/Name.lhs
+++ b/compiler/basicTypes/Name.lhs
@@ -70,8 +70,6 @@ module Name (
module OccName
) where
-#include "Typeable.h"
-
import {-# SOURCE #-} TypeRep( TyThing )
import {-# SOURCE #-} PrelNames( liftedTypeKindTyConKey )
diff --git a/compiler/basicTypes/NameSet.lhs b/compiler/basicTypes/NameSet.lhs
index f65fe8b..ed42c2b 100644
--- a/compiler/basicTypes/NameSet.lhs
+++ b/compiler/basicTypes/NameSet.lhs
@@ -37,7 +37,6 @@ module NameSet (
) where
#include "HsVersions.h"
-#include "Typeable.h"
import Name
import UniqSet
diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs
index 9ec57d4..7585807 100644
--- a/compiler/basicTypes/OccName.lhs
+++ b/compiler/basicTypes/OccName.lhs
@@ -105,8 +105,6 @@ module OccName (
startsVarSym, startsVarId, startsConSym, startsConId
) where
-#include "Typeable.h"
-
import Util
import Unique
import BasicTypes
diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs
index cfd846a..d53ac2b 100644
--- a/compiler/basicTypes/SrcLoc.lhs
+++ b/compiler/basicTypes/SrcLoc.lhs
@@ -74,8 +74,6 @@ module SrcLoc (
spans, isSubspanOf, sortLocated
) where
-#include "Typeable.h"
-
import Util
import Outputable
import FastString
diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index e3dd2df..70c5d44 100644
--- a/compiler/basicTypes/Var.lhs
+++ b/compiler/basicTypes/Var.lhs
@@ -73,7 +73,6 @@ module Var (
) where
#include "HsVersions.h"
-#include "Typeable.h"
import {-# SOURCE #-} TypeRep( Type, Kind, SuperKind )
import {-# SOURCE #-} TcType( TcTyVarDetails, pprTcTyVarDetails )
diff --git a/compiler/types/Class.lhs b/compiler/types/Class.lhs
index 3fb1bac..2d14568 100644
--- a/compiler/types/Class.lhs
+++ b/compiler/types/Class.lhs
@@ -28,7 +28,6 @@ module Class (
classAllSelIds, classSCSelId, classMinimalDef
) where
-#include "Typeable.h"
#include "HsVersions.h"
import {-# SOURCE #-} TyCon ( TyCon, tyConName, tyConUnique )
diff --git a/compiler/utils/Bag.lhs b/compiler/utils/Bag.lhs
index a833978..2d823e4 100644
--- a/compiler/utils/Bag.lhs
+++ b/compiler/utils/Bag.lhs
@@ -21,8 +21,6 @@ module Bag (
mapAndUnzipBagM, mapAccumBagLM
) where
-#include "Typeable.h"
-
import Outputable
import Util
More information about the ghc-commits
mailing list