X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FSrcLoc.lhs;h=44c51f36a19f1286a11a0c00e35955b3b386695b;hp=fda74e0110055155684e996a7fbab760c0549aca;hb=f3399c446c7507d46d6cc550aa2fe7027dbc1b5b;hpb=206b4dec78250efef3cd927d64dc6cbc54a16c3d

diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs
index fda74e0..44c51f3 100644
--- a/compiler/basicTypes/SrcLoc.lhs
+++ b/compiler/basicTypes/SrcLoc.lhs
@@ -186,7 +186,12 @@ data SrcSpan
   | UnhelpfulSpan FastString	-- Just a general indication
 				-- also used to indicate an empty span
 
+#ifdef DEBUG
+  deriving (Eq, Show)	-- Show is used by Lexer.x, becuase we
+			-- derive Show for Token
+#else
   deriving Eq
+#endif
 
 -- We want to order SrcSpans first by the start point, then by the end point.
 instance Ord SrcSpan where