diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 20:53:42 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 20:53:42 -0700 |
commit | 1dcecffef4bfdef9fa853d6a5b8a7b7a90021555 (patch) | |
tree | 4359d5918b1a91501a04cf208c1938c01f3c8332 /src/Text/Pandoc | |
parent | 2581f97620b36b14ee5560a747f57298a8640c84 (diff) | |
download | pandoc-1dcecffef4bfdef9fa853d6a5b8a7b7a90021555.tar.gz |
Removed spurious comments.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 4 |
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 |