aboutsummaryrefslogtreecommitdiff
path: root/bbcode/src/Text/BBCode/Lexer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bbcode/src/Text/BBCode/Lexer.hs')
-rw-r--r--bbcode/src/Text/BBCode/Lexer.hs6
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 @@
5module Text.BBCode.Lexer 5module 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
12import Data.Attoparsec.Text 12import Data.Attoparsec.Text
@@ -22,7 +22,7 @@ import Prelude hiding (takeWhile)
22 22
23-- | Our lexicographical unit 23-- | Our lexicographical unit
24data BBToken = BBOpen Text [(Text, Text)] -- ^ Tag open with attributes 24data 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)