import GHC.Base
import GHC.Show
import GHC.Num
+import GHC.Exception
#endif
#ifdef __HUGS__
showString ">>"
#ifdef __GLASGOW_HASKELL__
+-- here so that it isn't an orphan:
+instance Exception Dynamic
+#endif
+
+#ifdef __GLASGOW_HASKELL__
type Obj = Any
-- Use GHC's primitive 'Any' type to hold the dynamically typed value.
--