diff options
Diffstat (limited to 'bbcode/src/Text/BBCode')
-rw-r--r-- | bbcode/src/Text/BBCode/Lexer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs index 4ad0792..218427d 100644 --- a/bbcode/src/Text/BBCode/Lexer.hs +++ b/bbcode/src/Text/BBCode/Lexer.hs | |||
@@ -5,8 +5,8 @@ | |||
5 | module Text.BBCode.Lexer | 5 | module Text.BBCode.Lexer |
6 | ( BBToken(..) | 6 | ( BBToken(..) |
7 | , token | 7 | , token |
8 | , escapedText | 8 | -- , escapedText |
9 | , escapedText' | 9 | -- , escapedText' |
10 | ) where | 10 | ) where |
11 | 11 | ||
12 | import Data.Attoparsec.Text | 12 | import Data.Attoparsec.Text |
@@ -22,7 +22,7 @@ import Prelude hiding (takeWhile) | |||
22 | 22 | ||
23 | -- | Our lexicographical unit | 23 | -- | Our lexicographical unit |
24 | data BBToken = BBOpen Text [(Text, Text)] -- ^ Tag open with attributes | 24 | data BBToken = BBOpen Text [(Text, Text)] -- ^ Tag open with attributes |
25 | | BBContained Text [(Text, Text)] | 25 | | BBContained Text [(Text, Text)] -- ^ Tag open & immediate close with attributes |
26 | | BBClose Text -- ^ Tag close | 26 | | BBClose Text -- ^ Tag close |
27 | | BBStr Text -- ^ Content of a tag | 27 | | BBStr Text -- ^ Content of a tag |
28 | deriving (Eq, Show) | 28 | deriving (Eq, Show) |