diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 10:26:45 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 10:26:45 +0100 |
commit | ca7cd4ee2470115939523bb985aa576f9d87f18f (patch) | |
tree | 986d5d941f718fd813bf3436ae823cf1d0df1774 /bbcode/src/Text/BBCode | |
parent | 9f58557a76b5ae5478a7b7fc9e83266cd215c448 (diff) | |
download | thermoprint-ca7cd4ee2470115939523bb985aa576f9d87f18f.tar thermoprint-ca7cd4ee2470115939523bb985aa576f9d87f18f.tar.gz thermoprint-ca7cd4ee2470115939523bb985aa576f9d87f18f.tar.bz2 thermoprint-ca7cd4ee2470115939523bb985aa576f9d87f18f.tar.xz thermoprint-ca7cd4ee2470115939523bb985aa576f9d87f18f.zip |
cleanup & docs
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) |