mmark 0.0.1.0 → 0.0.1.1

raw patch · 5 files changed

+14/−4 lines, 5 files

Files

• CHANGELOG.md +5/−0
• README.md +1/−1
• Text/MMark/Parser.hs +1/−1
• mmark.cabal +1/−1
• tests/Text/MMarkSpec.hs +6/−1

@@ -1,3 +1,8 @@+## MMark 0.0.1.1++* Fixed a bug in skipping of headers (only one newline after the header line+  was picked, not all white space up to next block).+ ## MMark 0.0.1.0  * Initial release.

@@ -213,7 +213,7 @@  * YAML block must start with three hyphens `---` and end with three hyphens   `---`. It can only be placed at the beginning of a markdown document.-  Trailing white space after the `---** sequences is tolerated.+  Trailing white space after the `---` sequences is allowed.  ## Contribution 

@@ -241,7 +241,7 @@   where     start = casualLevel *> count' 1 6 (char '#')     recover err =-      Left err <$ takeWhileP Nothing notNewline <* optional eol+      Left err <$ takeWhileP Nothing notNewline <* sc  pFencedCodeBlock :: Parser (Block Isp) pFencedCodeBlock = do

@@ -1,5 +1,5 @@ name:                 mmark-version:              0.0.1.0+version:              0.0.1.1 cabal-version:        >= 1.18 tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.1 license:              BSD3

@@ -1053,13 +1053,18 @@       it "a composite, complex example" $         "***Something ~~~is not~~ going~ ^so well^** today*." ==->           "<p><em><strong>Something <sub><del>is not</del> going</sub> <sup>so well</sup></strong> today</em>.</p>\n"-    context "multiple parse errors" $+    context "multiple parse errors" $ do       it "they are reported in correct order" $ do         let s = "Foo `\n\nBar `.\n"             pe = ueib <> etok '`' <> elabel "code span content"         s ~~->           [ err (posN 5  s) pe           , err (posN 13 s) pe ]+      it "invalid headers are skipped properly" $ do+        let s = "#My header\n\nSomething goes __here __.\n"+        s ~~->+          [ err (posN 1 s) (utok 'M' <> etok '#' <> elabel "white space")+          , errFancy (posN 35 s) (nonFlanking "_") ]     context "given a complete, comprehensive document" $       it "outputs expected the HTML fragment" $         withFiles "data/comprehensive.md" "data/comprehensive.html"