Permalink
Browse files

Removed dead code

  • Loading branch information...
1 parent 00e389d commit 14e2911e4ecadc8b8d874fd13f54089641c8bd33 @snoyberg committed Dec 15, 2009
Showing with 0 additions and 13 deletions.
  1. +0 −13 Data/Object/Base.hs
View
@@ -309,19 +309,6 @@ instance ToObject (Object k v) k v where
instance FromObject (Object k v) k v where
fromObject = return
--- The following code seems too generic and will probably lead to overlapping
--- instances. It has thus been commented out.
-{-
--- Converting between different types of Objects
-instance (ConvertSuccess k k', ConvertSuccess v v')
- => ToObject (Object k v) k' v' where
- toObject = mapKeysValues convertSuccess convertSuccess
-
-instance (ConvertAttempt k' k, ConvertAttempt v' v)
- => FromObject (Object k v) k' v' where
- fromObject = mapKeysValuesM convertAttempt convertAttempt
--}
-
-- Sequence
instance ToObject a k v => ToObject [a] k v where
toObject = listToObject

0 comments on commit 14e2911

Please sign in to comment.