testsuite/tests/rename/should_compile/T4003B.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


{-# LANGUAGE DeriveDataTypeable #-}

module T4003B where

import {-# SOURCE #-} T4003A (HsExpr)

import Data.Data

data HsLit = HsChar
  deriving (Data, Typeable)

data HsOverLit id
  = OverLit (HsExpr id)
  deriving (Data, Typeable)

data OverLitVal = HsIntegral
  deriving (Data, Typeable)