From 23e89f3d4dc66e4f92296ae390510f1bae1320a4 Mon Sep 17 00:00:00 2001 From: Max Bolingbroke Date: Sun, 15 May 2011 23:08:54 +0100 Subject: [PATCH] Fix build when DEBUG is on --- compiler/basicTypes/BasicTypes.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/basicTypes/BasicTypes.lhs b/compiler/basicTypes/BasicTypes.lhs index 65002d5..7ea66e1 100644 --- a/compiler/basicTypes/BasicTypes.lhs +++ b/compiler/basicTypes/BasicTypes.lhs @@ -876,7 +876,8 @@ data FractionalLit = FL { fl_text :: String -- How the value was written in the source , fl_value :: Rational -- Numeric value of the literal } - deriving (Data, Typeable) + deriving (Data, Typeable, Show) + -- The Show instance is required for the derived Lexer.x:Token instance when DEBUG is on negateFractionalLit :: FractionalLit -> FractionalLit negateFractionalLit (FL { fl_text = '-':text, fl_value = value }) = FL { fl_text = text, fl_value = negate value } -- 1.7.10.4