From: simonmar <unknown>
Date: Mon, 7 Mar 2005 13:02:37 +0000 (+0000)
Subject: [project @ 2005-03-07 13:02:37 by simonmar]
X-Git-Tag: nhc98-1-18-release~3
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=df3788f0f093c337a4ea1a30b06c33687fd041c7

[project @ 2005-03-07 13:02:37 by simonmar]
Add dynTypeRep, from John Meacham.
---

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index f02290a..933224c 100644
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -34,7 +34,8 @@ module Data.Dynamic
 	
 	-- * Applying functions of dynamic type
 	dynApply,
-	dynApp
+	dynApp,
+        dynTypeRep
 
   ) where
 
@@ -162,3 +163,6 @@ dynApp f x = case dynApply f x of
              Nothing -> error ("Type error in dynamic application.\n" ++
                                "Can't apply function " ++ show f ++
                                " to argument " ++ show x)
+
+dynTypeRep :: Dynamic -> TypeRep
+dynTypeRep (Dynamic tr _) = tr