X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FDynamic.hs;h=275e3186b16a5d494c67390e68201047d32fcc32;hb=e96ffbdd524ee98473e486e52e79bb5912aac664;hp=bf83db52fc373d7200e5813f15f99520b50b24a9;hpb=561a07101ec667b429eb3efe9b561f292725a8e0;p=ghc-base.git

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index bf83db5..275e318 100644
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -28,6 +28,10 @@ module Data.Dynamic
 	fromDyn,	-- :: Typeable a => Dynamic -> a -> a
 	fromDynamic,	-- :: Typeable a => Dynamic -> Maybe a
 	
+	-- * Applying functions of dynamic type
+	dynApply,
+	dynApp,
+
 	-- * Concrete Type Representations
 	
 	-- | This section is useful if you need to define your own
@@ -74,6 +78,12 @@ import GHC.Float
 import GHC.IOBase
 #endif
 
+#ifdef __HUGS__
+import Hugs.IO
+import Hugs.IORef
+import Hugs.IOExts
+#endif
+
 #ifdef __GLASGOW_HASKELL__
 unsafeCoerce :: a -> b
 unsafeCoerce = unsafeCoerce#