X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FInst.lhs;h=d899c08bea84dbfb8e6ba117fffe932bdb520b8f;hb=d3e697b8d842bd43329d470f2bc424a6dcb88d89;hp=6ff359b5b0dd24bc4dd48b2bb6f4e24f9c2ec4bc;hpb=23af01cd04e40c12f39763f676e9c0396ac8d86a;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index 6ff359b..d899c08 100644
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -632,7 +632,7 @@ data InstOrigin s
 \begin{code}
 pprOrigin :: Inst s -> SDoc
 pprOrigin inst
-  = hsep [text "arising from", pp_orig orig <> comma, text "at", ppr locn]
+  = hsep [text "arising from", pp_orig orig, text "at", ppr locn]
   where
     (orig, locn) = case inst of
 			Dict _ _ _       orig loc -> (orig,loc)
@@ -659,11 +659,11 @@ pprOrigin inst
 	=  ptext SLIT("a class declaration")
     pp_orig (InstanceSpecOrigin clas ty)
 	= hsep [text "a SPECIALIZE instance pragma; class",
-	       ppr clas, text "type:", ppr ty]
+	        quotes (ppr clas), text "type:", ppr ty]
     pp_orig (ValSpecOrigin name)
-	= hsep [ptext SLIT("a SPECIALIZE user-pragma for"), ppr name]
+	= hsep [ptext SLIT("a SPECIALIZE user-pragma for"), quotes (ppr name)]
     pp_orig (CCallOrigin clabel Nothing{-ccall result-})
-	= hsep [ptext SLIT("the result of the _ccall_ to"), text clabel]
+	= hsep [ptext SLIT("the result of the _ccall_ to"), quotes (text clabel)]
     pp_orig (CCallOrigin clabel (Just arg_expr))
 	= hsep [ptext SLIT("an argument in the _ccall_ to"), quotes (text clabel) <> comma, 
 		text "namely", quotes (ppr arg_expr)]