X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Flib%2Fprelude%2FBuiltin.hs;h=a8eaa04675a29b36f1f131cc91d83a432925f2b8;hp=c8c2eefde04b4df96a378758ab9571b62a7bd8f4;hb=68a1f0233996ed79824d11d946e9801473f6946c;hpb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f

diff --git a/ghc/lib/prelude/Builtin.hs b/ghc/lib/prelude/Builtin.hs
index c8c2eef..a8eaa04 100644
--- a/ghc/lib/prelude/Builtin.hs
+++ b/ghc/lib/prelude/Builtin.hs
@@ -21,6 +21,7 @@ import PreludeGlaMisc	( deRefStablePtr )
 import PS		( _PackedString, _unpackPS )
 import Stdio		( _FILE )
 import Text
+import TyComplex
 
 ---------------------------------------------------------------
 {- OLD:
@@ -89,6 +90,7 @@ patError# encoded_msg
 	      = case next of
 	      	  '%' -> "%"
 		  'D' -> "No default method for \""
+		  'E' -> "No explicit method for \""
 		  'N' -> ": non-exhaustive guards"
 		  'F' -> "incomplete pattern(s) to match in function \""
 		  'L' -> "pattern-matching failed in lambda"
@@ -104,13 +106,13 @@ patError# encoded_msg
 ---------------------------------------------------------------
 -- ******** defn of `_trace' using Glasgow IO *******
 
---{-# GENERATE_SPECS _trace a #-}
+{-# GENERATE_SPECS _trace a #-}
 _trace :: String -> a -> a
 
 _trace string expr
   = unsafePerformPrimIO (
 	((_ccall_ PreTraceHook sTDERR{-msg-})::PrimIO ())	`seqPrimIO`
-	appendChan# sTDERR string		`seqPrimIO`
+	appendChan# sTDERR string				`seqPrimIO`
 	((_ccall_ PostTraceHook sTDERR{-msg-})::PrimIO ())	`seqPrimIO`
 	returnPrimIO expr )
   where