Done.

[Lucu.git] / Data / Attoparsec / Parsable.hs

diff --git a/Data/Attoparsec/Parsable.hs b/Data/Attoparsec/Parsable.hs
index a991607845646e86ba64b38b6775bb84aa24a0e6..d801fb7b3eee1bb066c1348f111c77ba9290aff1 100644 (file)
--- 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