testsuite/tests/deriving/perf/T10858.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE MagicHash #-}

import GHC.Exts

data TestData = First Int Double String Int Int Int Int
              | Second Char# Int# Word# Double#
              | Third TestData TestData TestData TestData
              deriving (Eq, Ord)

main = return ()