[remove unneeded arbitrary instancse
John Meacham <john@repetae.net>**20070522024513] hunk ./Util/ArbitraryInstances.hs 7
-instance Arbitrary a => Arbitrary (Maybe a) where
-    arbitrary = do
-        i <- choose ((0::Int),7)
-        if i == 0 then return Nothing else do
-            x <- arbitrary
-            return (Just x)
+--instance Arbitrary a => Arbitrary (Maybe a) where
+--    arbitrary = do
+--        i <- choose ((0::Int),7)
+--        if i == 0 then return Nothing else do
+--            x <- arbitrary
+--            return (Just x)
hunk ./Util/ArbitraryInstances.hs 14
-instance (Arbitrary a, Arbitrary b) => Arbitrary (Either a b) where
-    arbitrary = do
-        i <- choose ((0::Int),1)
-        case i of
-            0 -> liftM Left arbitrary
-            1 -> liftM Right arbitrary
-
+--instance (Arbitrary a, Arbitrary b) => Arbitrary (Either a b) where
+--    arbitrary = do
+--        i <- choose ((0::Int),1)
+--        case i of
+--            0 -> liftM Left arbitrary
+--            1 -> liftM Right arbitrary
+--