From c5d261df4d37f2fc83bc59ecca9f741a9c8da0ff Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 2 Nov 2001 09:50:32 +0000
Subject: [PATCH] [project @ 2001-11-02 09:50:32 by simonpj] Add missing cases
 to pp_origin; MERGE TO STABLE

---
 ghc/compiler/typecheck/TcMonad.lhs |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs
index 3893559..28743e2 100644
--- a/ghc/compiler/typecheck/TcMonad.lhs
+++ b/ghc/compiler/typecheck/TcMonad.lhs
@@ -702,12 +702,16 @@ pprInstLoc (orig, locn, ctxt)
       	= hsep [ptext SLIT("use of implicit parameter"), quotes (char '?' <> ppr name)]
     pp_orig (IPBind name)
       	= hsep [ptext SLIT("binding for implicit parameter"), quotes (char '?' <> ppr name)]
+    pp_orig RecordUpdOrigin
+	= ptext SLIT("a record update")
+    pp_orig DataDeclOrigin
+	= ptext SLIT("the data type declaration")
+    pp_orig InstanceDeclOrigin
+	= ptext SLIT("the instance declaration")
     pp_orig (LiteralOrigin lit)
 	= hsep [ptext SLIT("the literal"), quotes (ppr lit)]
     pp_orig (PatOrigin pat)
 	= hsep [ptext SLIT("the pattern"), quotes (ppr pat)]
-    pp_orig (InstanceDeclOrigin)
-	=  ptext SLIT("the instance declaration")
     pp_orig (ArithSeqOrigin seq)
 	= hsep [ptext SLIT("the arithmetic sequence"), quotes (ppr seq)]
     pp_orig (SignatureOrigin)
-- 
1.7.10.4