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=d801fb7b3eee1bb066c1348f111c77ba9290aff1;hp=a991607845646e86ba64b38b6775bb84aa24a0e6;hb=db4a546d0d462cb94639b1f273bf0b78bccc960c;hpb=2dfd3e662204585dd64f2ddbe3b3eed0c708c68f

diff --git a/Data/Attoparsec/Parsable.hs b/Data/Attoparsec/Parsable.hs
index a991607..d801fb7 100644
--- a/Data/Attoparsec/Parsable.hs
+++ b/Data/Attoparsec/Parsable.hs
@@ -16,50 +16,50 @@ import Data.Word
 
 -- |Class of types which have their corresponding parsers.
 --
--- Minimal complete definition: 'parse'
+-- Minimal complete definition: 'parser'
 class Parsable t a where
-    parse :: Parser t a
+    parser :: Parser t a
 
 instance Parsable B.ByteString Word8 where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.anyWord8
+    {-# INLINE CONLIKE parser #-}
+    parser = B.anyWord8
 
 instance Parsable B.ByteString Char where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.anyChar
+    {-# INLINE CONLIKE parser #-}
+    parser = B.anyChar
 
 instance Parsable B.ByteString B.ByteString where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.takeByteString
+    {-# INLINE CONLIKE parser #-}
+    parser = B.takeByteString
 
 instance Parsable B.ByteString LB.ByteString where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.takeLazyByteString
+    {-# INLINE CONLIKE parser #-}
+    parser = B.takeLazyByteString
 
 instance Parsable B.ByteString Double where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.double
+    {-# INLINE CONLIKE parser #-}
+    parser = B.double
 
 instance Parsable B.ByteString Number where
-    {-# INLINE CONLIKE parse #-}
-    parse = B.number
+    {-# INLINE CONLIKE parser #-}
+    parser = B.number
 
 instance Parsable T.Text Char where
-    {-# INLINE CONLIKE parse #-}
-    parse = T.anyChar
+    {-# INLINE CONLIKE parser #-}
+    parser = T.anyChar
 
 instance Parsable T.Text T.Text where
-    {-# INLINE CONLIKE parse #-}
-    parse = T.takeText
+    {-# INLINE CONLIKE parser #-}
+    parser = T.takeText
 
 instance Parsable T.Text LT.Text where
-    {-# INLINE CONLIKE parse #-}
-    parse = T.takeLazyText
+    {-# INLINE CONLIKE parser #-}
+    parser = T.takeLazyText
 
 instance Parsable T.Text Double where
-    {-# INLINE CONLIKE parse #-}
-    parse = T.double
+    {-# INLINE CONLIKE parser #-}
+    parser = T.double
 
 instance Parsable T.Text Number where
-    {-# INLINE CONLIKE parse #-}
-    parse = T.number
+    {-# INLINE CONLIKE parser #-}
+    parser = T.number