projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-07 13:02:37 by simonmar]
[ghc-base.git]
/
Data
/
Dynamic.hs
diff --git
a/Data/Dynamic.hs
b/Data/Dynamic.hs
index
f4e35cd
..
933224c
100644
(file)
--- a/
Data/Dynamic.hs
+++ b/
Data/Dynamic.hs
@@
-1,4
+1,4
@@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : Data.Dynamic
-----------------------------------------------------------------------------
-- |
-- Module : Data.Dynamic
@@
-34,7
+34,8
@@
module Data.Dynamic
-- * Applying functions of dynamic type
dynApply,
-- * Applying functions of dynamic type
dynApply,
- dynApp
+ dynApp,
+ dynTypeRep
) where
) 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)
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