From 727f51dc3ea77d783cba13f5a98acbc52a818a38 Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 2 Nov 1999 10:31:54 +0000 Subject: [PATCH] [project @ 1999-11-02 10:31:54 by simonpj] Fix bug in instance Dynamic (Either a b) --- ghc/lib/exts/Dynamic.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4