Unconditionally derive some instances
authorIan Lynagh <igloo@earth.li>
Mon, 24 Oct 2011 10:49:31 +0000 (11:49 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 25 Oct 2011 14:57:19 +0000 (15:57 +0100)
They used to be only derived when DEBUG was on

compiler/basicTypes/SrcLoc.lhs
compiler/cmm/CmmLex.x
compiler/parser/Lexer.x

index c39f714..7061793 100644 (file)
@@ -98,10 +98,7 @@ data RealSrcLoc
   = SrcLoc     FastString      -- A precise location (file name)
                {-# UNPACK #-} !Int             -- line number, begins at 1
                {-# UNPACK #-} !Int             -- column number, begins at 1
-
-#ifdef DEBUG
-  deriving Show -- debugging
-#endif
+  deriving Show
 
 data SrcLoc
   = RealSrcLoc {-# UNPACK #-}!RealSrcLoc
@@ -254,24 +251,16 @@ data RealSrcSpan
          srcSpanLine     :: {-# UNPACK #-} !Int,
          srcSpanCol      :: {-# UNPACK #-} !Int
        }
-#ifdef DEBUG
   deriving (Eq, Typeable, Show) -- Show is used by Lexer.x, becuase we
                                 -- derive Show for Token
-#else
-  deriving (Eq, Typeable)
-#endif
 
 data SrcSpan =
     RealSrcSpan !RealSrcSpan
   | UnhelpfulSpan !FastString  -- Just a general indication
                                -- also used to indicate an empty span
 
-#ifdef DEBUG
   deriving (Eq, Typeable, Show) -- Show is used by Lexer.x, becuase we
                                 -- derive Show for Token
-#else
-  deriving (Eq, Typeable)
-#endif
 
 -- | Built-in "bad" 'SrcSpan's for common sources of location uncertainty
 noSrcSpan, wiredInSrcSpan :: SrcSpan
index cbadaa8..1e2b20d 100644 (file)
@@ -169,9 +169,7 @@ data CmmToken
   | CmmT_Int      Integer
   | CmmT_Float     Rational
   | CmmT_EOF
-#ifdef DEBUG
   deriving (Show)
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Lexer actions
index 43be73f..f3c8c36 100644 (file)
@@ -584,9 +584,7 @@ data Token
   | ITlineComment     String     -- comment starting by "--"
   | ITblockComment    String     -- comment in {- -}
 
-#ifdef DEBUG
-  deriving Show -- debugging
-#endif
+  deriving Show
 
 -- the bitmap provided as the third component indicates whether the
 -- corresponding extension keyword is valid under the extension options