Commit 03753b0f authored by jpm@cs.ox.ac.uk's avatar jpm@cs.ox.ac.uk

Test #7631

parent ec8d757b
{-# LANGUAGE DeriveGeneric #-}
module Main where
import GHC.Generics
data X = X deriving Generic
newtype Y = Y X deriving Generic
main = print [isNewtype (from X), isNewtype (from (Y X))]
......@@ -9,6 +9,7 @@ test('GenCannotDoRep0', normal, compile_fail, [''])
test('GenCannotDoRep1', normal, compile_fail, [''])
test('GenCannotDoRep2', normal, compile_fail, [''])
test('T5884', normal, compile, [''])
test('GenNewtype', normal, compile_and_run, [''])
test('GenCanDoRep1_0', normal, compile, [''])
test('GenDerivOutput1_0', normal, compile, ['-dsuppress-uniques'])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment