X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Data%2FAttoparsec%2FParsable.hs;fp=Data%2FAttoparsec%2FParsable.hs;h=0000000000000000000000000000000000000000;hp=d801fb7b3eee1bb066c1348f111c77ba9290aff1;hb=90fca0675b1694e69b8e431c989343855cbd125d;hpb=742b0cae221f12eafbf1379b91c473b059efa7d8

diff --git a/Data/Attoparsec/Parsable.hs b/Data/Attoparsec/Parsable.hs
deleted file mode 100644
index d801fb7..0000000
--- a/Data/Attoparsec/Parsable.hs
+++ /dev/null
@@ -1,65 +0,0 @@
-{-# LANGUAGE MultiParamTypeClasses #-}
-module Data.Attoparsec.Parsable
-    ( Parsable(..)
-    )
-    where
-import qualified Data.Attoparsec.ByteString as B
-import qualified Data.Attoparsec.ByteString.Char8 as B
-import qualified Data.Attoparsec.Text as T
-import Data.Attoparsec.Number
-import Data.Attoparsec.Types
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as LB
-import qualified Data.Text as T
-import qualified Data.Text.Lazy as LT
-import Data.Word
-
--- |Class of types which have their corresponding parsers.
---
--- Minimal complete definition: 'parser'
-class Parsable t a where
-    parser :: Parser t a
-
-instance Parsable B.ByteString Word8 where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.anyWord8
-
-instance Parsable B.ByteString Char where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.anyChar
-
-instance Parsable B.ByteString B.ByteString where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.takeByteString
-
-instance Parsable B.ByteString LB.ByteString where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.takeLazyByteString
-
-instance Parsable B.ByteString Double where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.double
-
-instance Parsable B.ByteString Number where
-    {-# INLINE CONLIKE parser #-}
-    parser = B.number
-
-instance Parsable T.Text Char where
-    {-# INLINE CONLIKE parser #-}
-    parser = T.anyChar
-
-instance Parsable T.Text T.Text where
-    {-# INLINE CONLIKE parser #-}
-    parser = T.takeText
-
-instance Parsable T.Text LT.Text where
-    {-# INLINE CONLIKE parser #-}
-    parser = T.takeLazyText
-
-instance Parsable T.Text Double where
-    {-# INLINE CONLIKE parser #-}
-    parser = T.double
-
-instance Parsable T.Text Number where
-    {-# INLINE CONLIKE parser #-}
-    parser = T.number