Permalink
Browse files

Removed redundant ConvertAttempt instances from Text

  • Loading branch information...
1 parent 1cc7f9b commit 38f8b9195f34788c456e7a2b177a119021944ceb @snoyberg committed Dec 7, 2009
Showing with 0 additions and 52 deletions.
  1. +0 −50 Data/Convertible/Instances/Text.hs
  2. +0 −2 utils/TextSkel.hs
@@ -82,53 +82,3 @@ instance ConvertSuccess LT.Text ST.Text where
convertSuccess = ST.concat . LT.toChunks
instance ConvertSuccess LT.Text LT.Text where
convertSuccess = id
-instance ConvertAttempt [Char] [Char] where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt [Char] BS.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt [Char] BL.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt [Char] ST.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt [Char] LT.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BS.ByteString [Char] where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BS.ByteString BS.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BS.ByteString BL.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BS.ByteString ST.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BS.ByteString LT.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BL.ByteString [Char] where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BL.ByteString BS.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BL.ByteString BL.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BL.ByteString ST.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt BL.ByteString LT.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt ST.Text [Char] where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt ST.Text BS.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt ST.Text BL.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt ST.Text ST.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt ST.Text LT.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt LT.Text [Char] where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt LT.Text BS.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt LT.Text BL.ByteString where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt LT.Text ST.Text where
- convertAttempt = return . convertSuccess
-instance ConvertAttempt LT.Text LT.Text where
- convertAttempt = return . convertSuccess
View
@@ -7,7 +7,5 @@ pairs = do
main = do
mapM_ cs pairs
- mapM_ ca pairs
cs (f, t) = putStrLn $ "instance ConvertSuccess " ++ f ++ " " ++ t ++ " where\n convertSuccess = "
-ca (f, t) = putStrLn $ "instance ConvertAttempt " ++ f ++ " " ++ t ++ " where\n convertAttempt = return . convertSuccess"

0 comments on commit 38f8b91

Please sign in to comment.