X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray.hs;h=09c4f651e1485c4582c0a3f43708100fcdfdaaf3;hb=b1f2e321ceac8fcfc1f0756e2f5c2585fbd00b3c;hp=cd41677c26426c8f4666ae2c31cf1ac40e90b82d;hpb=0d6c1599c246100deb2fa54315811ed94d1a300c;p=ghc-base.git

diff --git a/Data/Array.hs b/Data/Array.hs
index cd41677..09c4f65 100644
--- a/Data/Array.hs
+++ b/Data/Array.hs
@@ -72,28 +72,7 @@ import Hugs.Array
 import Array		-- Haskell'98 arrays
 #endif
 
-#ifndef __NHC__
 import Data.Typeable
-#endif
-
-#ifndef __NHC__
-#include "Typeable.h"
-INSTANCE_TYPEABLE2(Array,arrayTc,"Array")
-#endif
-
-#ifdef __GLASGOW_HASKELL__
-
--- This instance preserves data abstraction at the cost of inefficiency.
--- We omit reflection services for the sake of data abstraction.
-
-instance (Typeable a, Data b, Ix a) => Data (Array a b)
- where
-  gfoldl f z a = z (listArray (bounds a)) `f` (elems a)
-  toConstr _   = error "toConstr"
-  gunfold _ _  = error "gunfold"
-  dataTypeOf _ = mkNorepType "Data.Array.Array"
-
-#endif
 
 {- $intro
 Haskell provides indexable /arrays/, which may be thought of as functions