Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deriving / should_fail / drvfail012.hs
1 -- #1608
2
3 module ShouldFail where
4
5 newtype Ego a = Ego a deriving (Ord)
6
7 f :: Ord a => Ego a -> Ego a -> Bool
8 f e1 e2 = e1 < e2