aboutsummaryrefslogtreecommitdiff
path: root/bbcode/src
diff options
context:
space:
mode:
Diffstat (limited to 'bbcode/src')
-rw-r--r--bbcode/src/Text/BBCode/Lexer.hs9
1 files changed, 2 insertions, 7 deletions
diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs
index 01f47f0..a7294fe 100644
--- a/bbcode/src/Text/BBCode/Lexer.hs
+++ b/bbcode/src/Text/BBCode/Lexer.hs
@@ -12,20 +12,15 @@ module Text.BBCode.Lexer
12import Data.Attoparsec.Text 12import Data.Attoparsec.Text
13 13
14import Data.Text (Text) 14import Data.Text (Text)
15import qualified Data.Text as T (singleton, head, last, tail, null) 15import qualified Data.Text as T (singleton)
16 16
17import Control.Applicative 17import Control.Applicative
18 18
19import Test.QuickCheck (Arbitrary(..), CoArbitrary, genericShrink)
20import Test.QuickCheck.Gen (oneof, suchThat)
21import Test.QuickCheck.Instances
22import GHC.Generics (Generic)
23
24-- | Our lexicographical unit 19-- | Our lexicographical unit
25data BBToken = BBOpen Text -- ^ Tag open 20data BBToken = BBOpen Text -- ^ Tag open
26 | BBClose Text -- ^ Tag close 21 | BBClose Text -- ^ Tag close
27 | BBStr Text -- ^ Content of a tag 22 | BBStr Text -- ^ Content of a tag
28 deriving (Generic, Eq, Show) 23 deriving (Eq, Show)
29 24
30token :: Parser BBToken 25token :: Parser BBToken
31-- ^ Tokenizer 26-- ^ Tokenizer