[GHC] #9978: DEBUG is always replaced as 1 when CPP pragma is on

[GHC]

#9978: DEBUG is always replaced as 1 when CPP pragma is on
-------------------------------------+-------------------------------------
              Reporter:  danilo2     |             Owner:
                  Type:  bug         |            Status:  new
              Priority:  normal      |         Milestone:
             Component:  Compiler    |           Version:  7.8.4
  (Parser)                           |  Operating System:  Unknown/Multiple
              Keywords:              |   Type of failure:  None/Unknown
          Architecture:              |        Blocked By:
  Unknown/Multiple                   |   Related Tickets:
             Test Case:              |
              Blocking:              |
Differential Revisions:              |
-------------------------------------+-------------------------------------
 Trying to compile the following code:
 {{{
 {-# LANGUAGE CPP #-}
 data Level = DEBUG
 }}}
 results in error:
 {{{
 Test.hs:2:14:
     Illegal literal in type (use DataKinds to enable): 1
 }}}
 which is of course an error.

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/9978>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler