diff options
Diffstat (limited to 'testsuite/tests/deriving/should_fail/drvfail012.hs')
| -rw-r--r-- | testsuite/tests/deriving/should_fail/drvfail012.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_fail/drvfail012.hs b/testsuite/tests/deriving/should_fail/drvfail012.hs new file mode 100644 index 0000000000..4a073bbed1 --- /dev/null +++ b/testsuite/tests/deriving/should_fail/drvfail012.hs @@ -0,0 +1,8 @@ +-- Trac #1608 + +module ShouldFail where + +newtype Ego a = Ego a deriving (Ord) + +f :: Ord a => Ego a -> Ego a -> Bool +f e1 e2 = e1 < e2 |