From df3788f0f093c337a4ea1a30b06c33687fd041c7 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 7 Mar 2005 13:02:37 +0000 Subject: [PATCH] [project @ 2005-03-07 13:02:37 by simonmar] Add dynTypeRep, from John Meacham. --- Data/Dynamic.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 1.7.10.4