[add Ord instances for 3 and 4-tuples
John Meacham <john@repetae.net>**20090906093322
 Ignore-this: b5501f8a6af7447f5270c9929099c4a0
] hunk ./lib/jhc/Jhc/Tuples.hs 29
+instance (Ord a, Ord b, Ord c) => Ord (a,b,c) where
+    compare (x,y,z) (a,b,c) = case compare x a of
+        EQ -> case compare y b of
+            EQ -> compare z c
+            z -> z
+        z -> z
+
+instance (Ord a, Ord b, Ord c, Ord d) => Ord (a,b,c,d) where
+    compare (x,y,z,j) (a,b,c,d) = case compare x a of
+        EQ -> case compare y b of
+            EQ -> case compare z c of
+                EQ -> compare j d
+                z -> z
+            z -> z
+        z -> z
+