X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FLiteral.lhs;h=a03e1c14e03e539a5640cddbb6aba28bd4429a79;hb=a51fe79ebcdcb8285573a18f12cade2101533419;hp=aa3cdd5d5d063115496009704980535ee4000aca;hpb=79e9cfa32cc3b94428e1199ce550bb62c50bf8e6;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Literal.lhs b/compiler/basicTypes/Literal.lhs
index aa3cdd5..a03e1c1 100644
--- a/compiler/basicTypes/Literal.lhs
+++ b/compiler/basicTypes/Literal.lhs
@@ -11,6 +11,7 @@
 -- any warnings in the module. See
 --     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
+{-# LANGUAGE DeriveDataTypeable #-}
 
 module Literal
 	( 
@@ -55,6 +56,7 @@ import Data.Int
 import Data.Ratio
 import Data.Word
 import Data.Char
+import Data.Data
 \end{code}
 
 
@@ -106,6 +108,7 @@ data Literal
 				--    the label expects. Only applicable with
 				--    @stdcall@ labels. @Just x@ => @\<x\>@ will
 				--    be appended to label name when emitting assembly.
+  deriving (Data, Typeable)
 \end{code}
 
 Binary instance