blob: 86e5098ce30646816cc105f822665921e1aa0e51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveGeneric #-}
{-# OPTIONS_GHC -ddump-deriv #-}
module GenDerivOutput where
import GHC.Generics (Generic, Generic1)
data List a = Nil | Cons { element :: a, rest :: List a }
deriving (Generic, Generic1, Functor)
data Rose a = Empty | Rose a (List (Rose a))
deriving (Generic, Generic1)
|
