X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray.hs;h=0dd1b23837569165013e30fa4e9bdd8961e1f229;hb=d6da61305e108a825889ecb9a109569e6b052bba;hp=230e94ae4ae00c93bdc1e90a4b68bbac4aec672f;hpb=29246dd4eb44d03cc48cbd894821d3c9501d8829;p=ghc-base.git diff --git a/Data/Array.hs b/Data/Array.hs index 230e94a..0dd1b23 100644 --- a/Data/Array.hs +++ b/Data/Array.hs @@ -44,12 +44,9 @@ module Data.Array ) where -#ifndef __NHC__ -import Data.Dynamic -#endif +import Data.Ix #ifdef __GLASGOW_HASKELL__ -import Data.Ix import GHC.Arr -- Most of the hard work is done here import GHC.Err ( undefined ) #endif @@ -60,10 +57,13 @@ import Hugs.Array #ifdef __NHC__ import Array -- Haskell'98 arrays -import Data.Ix #endif #ifndef __NHC__ -#include "Dynamic.h" +import Data.Typeable +#endif + +#ifndef __NHC__ +#include "Typeable.h" INSTANCE_TYPEABLE2(Array,arrayTc,"Array") #endif