testsuite/tests/deriving/should_run/T7401.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{-# LANGUAGE EmptyDataDeriving #-}
module Main where

import Data.Function

data Foo
  deriving (Eq, Ord, Read, Show)

foo1 :: Foo
foo1 = fix id

foo2 :: Foo
foo2 = let x = y
           y = x
        in y

main :: IO ()
main = do
  print (foo1 ==        foo2)
  print (foo1 `compare` foo2)