testsuite/tests/deriving/should_run/drvrun022.hs


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

{-# LANGUAGE DeriveDataTypeable #-}

module Main where

-- GHC 6.4.1 output "testz" in z-encoded form!

import Data.Generics

data TestZ = TestZ { testz :: Int }
             deriving (Show, Read, Eq, Data, Typeable)

main = print $ constrFields . toConstr $ TestZ { testz = 2 }