diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-15 10:58:00 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-17 09:47:55 +0200 |
| commit | 43ece172e7045d5ba633be6193f3e908eaa81f00 (patch) | |
| tree | f1e25c06b710a5087173daf5eb01b94ab8517917 /libraries/base/Data/Dynamic.hs | |
| parent | 907cd8c36b6c249dcb8af19f05303e34eb4e8de4 (diff) | |
| download | haskell-43ece172e7045d5ba633be6193f3e908eaa81f00.tar.gz | |
Remove Hugs98 specific code
For rationale. see
http://permalink.gmane.org/gmane.comp.lang.haskell.ghc.devel/2349
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'libraries/base/Data/Dynamic.hs')
| -rw-r--r-- | libraries/base/Data/Dynamic.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/libraries/base/Data/Dynamic.hs b/libraries/base/Data/Dynamic.hs index a3d331ed61..4492dd39bb 100644 --- a/libraries/base/Data/Dynamic.hs +++ b/libraries/base/Data/Dynamic.hs @@ -55,13 +55,6 @@ import GHC.Show import GHC.Exception #endif -#ifdef __HUGS__ -import Hugs.Prelude -import Hugs.IO -import Hugs.IORef -import Hugs.IOExts -#endif - #include "Typeable.h" ------------------------------------------------------------- @@ -80,9 +73,7 @@ import Hugs.IOExts 'Show'ing a value of type 'Dynamic' returns a pretty-printed representation of the object\'s type; useful for debugging. -} -#ifndef __HUGS__ data Dynamic = Dynamic TypeRep Obj -#endif INSTANCE_TYPEABLE0(Dynamic,dynamicTc,"Dynamic") @@ -107,7 +98,7 @@ type Obj = Any -- when evaluating it, and this will go wrong if the object is really a -- function. Using Any forces GHC to use -- a fallback convention for evaluating it that works for all types. -#elif !defined(__HUGS__) +#else data Obj = Obj #endif |