[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