diff options
| author | ralf <unknown> | 2004-03-21 19:07:01 +0000 |
|---|---|---|
| committer | ralf <unknown> | 2004-03-21 19:07:01 +0000 |
| commit | e367013064d4881edf2f033581d4fe695c8df8ed (patch) | |
| tree | 0637926b7724ffe4e2d85078af44801b2dd81dd9 /libraries/base/Data/Dynamic.hs | |
| parent | bb1bb04737bd28801057410f7f93420acb8ebc8d (diff) | |
| download | haskell-e367013064d4881edf2f033581d4fe695c8df8ed.tar.gz | |
[project @ 2004-03-21 19:07:00 by ralf]
Implemented renaming for Data.Typeable according to
http://www.haskell.org//pipermail/libraries/2004-March/001846.html
Diffstat (limited to 'libraries/base/Data/Dynamic.hs')
| -rw-r--r-- | libraries/base/Data/Dynamic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Data/Dynamic.hs b/libraries/base/Data/Dynamic.hs index 26782cea96..31c0199adb 100644 --- a/libraries/base/Data/Dynamic.hs +++ b/libraries/base/Data/Dynamic.hs @@ -154,7 +154,7 @@ fromDynamic (Dynamic t v) = -- (f::(a->b)) `dynApply` (x::a) = (f a)::b dynApply :: Dynamic -> Dynamic -> Maybe Dynamic dynApply (Dynamic t1 f) (Dynamic t2 x) = - case applyTy t1 t2 of + case funResultTy t1 t2 of Just t3 -> Just (Dynamic t3 ((unsafeCoerce f) x)) Nothing -> Nothing |