summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/RST.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-08-09 20:53:42 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-09 20:53:42 -0700
commit1dcecffef4bfdef9fa853d6a5b8a7b7a90021555 (patch)
tree4359d5918b1a91501a04cf208c1938c01f3c8332 /src/Text/Pandoc/Readers/RST.hs
parent2581f97620b36b14ee5560a747f57298a8640c84 (diff)
Removed spurious comments.
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
-rw-r--r--src/Text/Pandoc/Readers/RST.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 6cc3b7472..02812dbd9 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -58,7 +58,6 @@ import qualified Data.Text as T
-- TODO:
-- [ ] .. parsed-literal
--- [ ] :widths: attribute in .. table
-- [ ] .. csv-table
-- | Parse reStructuredText string and return Pandoc document.
@@ -1057,7 +1056,6 @@ anonymousKey = try $ do
src <- targetURI
pos <- getPosition
let key = toKey $ "_" ++ printf "%09d" (sourceLine pos)
- --TODO: parse width, height, class and name attributes
updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
stateKeys s }
@@ -1085,7 +1083,6 @@ regularKey = try $ do
refs <- referenceNames
src <- targetURI
guard $ not (null src)
- --TODO: parse width, height, class and name attributes
let keys = map (toKey . stripTicks) refs
forM_ keys $ \key ->
updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
@@ -1115,7 +1112,6 @@ headerBlock = do
((txt, _), raw) <- withRaw (doubleHeader' <|> singleHeader')
(ident,_,_) <- registerHeader nullAttr txt
let key = toKey (stringify txt)
- --TODO: parse width, height, class and name attributes
updateState $ \s -> s { stateKeys = M.insert key (('#':ident,""), nullAttr)
$ stateKeys s }
return raw