1 files changed, 12 insertions, 5 deletions

diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index 32f74df..75fa219 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -3,12 +3,14 @@
 
 -- | An implementation of BBcode parsing 'Text' to a syntax tree
 module Text.BBCode
-       ( TreeError(..)
+       ( bbcode
+       , BBCodeError(..)
+       , TreeError(..)
        , DomTree(..)
-       , dom
-       , BBLabel
-       , rose
-       , matches
+       -- , dom
+       -- , BBLabel
+       -- , rose
+       -- , matches
        ) where
 
 import Data.Text (Text)
@@ -36,11 +38,15 @@ import qualified Data.CaseInsensitive as CI
 
 import Data.Bifunctor (Bifunctor(first))
 
+-- | Our target structure -- a rose tree with an explicit terminal constructor
 data DomTree = Element Text (Map Text Text) [DomTree]
              | Content Text
              deriving (Show, Eq)
 
 dom :: Forest BBLabel -> [DomTree]
+-- ^ Parse semantically constrained rose tree to syntactically constrained version
+--
+-- Silently drops children of semantically terminal nodes ('BBPlain')
 dom = map dom'
   where
     dom' (Node (BBPlain t) _) = Content t
@@ -54,6 +60,7 @@ data BBCodeError = LexerError String -- ^ Error while parsing input to stream of
 instance Exception BBCodeError
 
 bbcode :: Text -> Either BBCodeError [DomTree]
+-- ^ Parse BBCode
 bbcode t = fmap dom $ first LexerError (parseOnly (many token <* endOfInput) t) >>= first TreeError . rose
 
 -- | Errors in input encountered during parsing of lexed token-stream