[project @ 1999-11-02 10:31:54 by simonpj]

Fix bug in instance Dynamic (Either a b)

diff --git a/ghc/lib/exts/Dynamic.lhs b/ghc/lib/exts/Dynamic.lhs
index f83b0b5..69d160f 100644 (file)
--- a/ghc/lib/exts/Dynamic.lhs
+++ b/ghc/lib/exts/Dynamic.lhs
@@ -269,7 +269,7 @@ instance (Typeable a, Typeable b) => Typeable (Either a b) where
     where
       getL :: Either a b -> a
       getL = undefined
-      getR :: Either a b -> a
+      getR :: Either a b -> b
       getR = undefined
 
 instance (Typeable a, Typeable b) => Typeable (a -> b) where