blob: c05ce66c8ad083a02c421c272473ff2132dd468d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE DeriveAnyClass #-}
data Foo a = F Int | A a
deriving Show
data Foo1 a = F1 Int | A1 a
deriving (Show)
data Foo2 a = F2 Int | A2 a
deriving (Show, Eq)
data FooStock = FS Int
deriving stock Show
data FooAnyClass = Fa Int
deriving anyclass Show
newtype FooNewType = Fn Int
deriving newtype (Show)
|
