From: simonpj <unknown>
Date: Tue, 2 Nov 1999 10:31:54 +0000 (+0000)
Subject: [project @ 1999-11-02 10:31:54 by simonpj]
X-Git-Tag: Approximately_9120_patches~5617
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=727f51dc3ea77d783cba13f5a98acbc52a818a38;p=ghc-hetmet.git

[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
--- 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