on d02483a help sign in
16 lines 241 B history raw
1{-# LANGUAGE InstanceSigs #-}
3instance Eq Int
4 where
5 (==) :: Int -> Int -> Bool
6 (==) _ _ = False
8instance Ord Int where
9 compare ::
10 Int
11 -> Int
12 -> Ordering
13 compare
14 _
15 _
16 = GT