Add a test for shutting down a process with in-calls in progress
[ghc.git] / testsuite / tests / generics / GenDerivOutput.hs
1 {-# LANGUAGE DeriveFunctor #-}
2 {-# LANGUAGE DeriveGeneric #-}
3 {-# OPTIONS_GHC -ddump-deriv #-}
4
5 module GenDerivOutput where
6
7 import GHC.Generics (Generic, Generic1)
8
9 data List a = Nil | Cons { element :: a, rest :: List a }
10 deriving (Generic, Generic1, Functor)
11
12 data Rose a = Empty | Rose a (List (Rose a))
13 deriving (Generic, Generic1)