testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE DeriveDataTypeable #-}

module T4003A where

import T4003B

import Data.Data

data MyId = MyId
    deriving (Data, Typeable)

data HsExpr id
  = HsOverLit (HsOverLit id)
  | HsBracketOut (HsExpr MyId)
  deriving (Data, Typeable)