drvfail015.hs 201 Bytes
Newer Older
simonpj's avatar
simonpj committed
1
2
3
4
5
6
7
8
9
10
11
12
13
{-# OPTIONS_GHC -XStandaloneDeriving #-}

module ShouldFail where

import System.IO( Handle )


-- T is a synonym
type T = Int
deriving instance Eq T

-- Handle is abstract
deriving instance Eq Handle