markdown 0.1.8 → 0.1.9

raw patch · 4 files changed

+10/−6 lines, 4 filesdep −attoparsec-conduitdep ~conduitdep ~conduit-extra

Dependencies removed: attoparsec-conduit

Dependency ranges changed: conduit, conduit-extra

Files

Text/Markdown.hs +1/−1
Text/Markdown/Block.hs +3/−1
markdown.cabal +3/−4
test/main.hs +3/−0

Text/Markdown.hs view

@@ -45,7 +45,7 @@  -- | A newtype wrapper providing a @ToHtml@ instance. newtype Markdown = Markdown TL.Text-  deriving(Monoid, IsString)+  deriving(Eq, Monoid, IsString)  instance ToMarkup Markdown where     toMarkup (Markdown t) = markdown def t

Text/Markdown/Block.hs view

@@ -241,7 +241,9 @@     case T.stripPrefix "<" t of         Nothing -> False         Just t' ->-            let (name, rest) = T.break (\c -> c `elem` " >") t'+            let (name, rest)+                    | Just x <- T.stripPrefix "!--" t' = ("--", t')+                    | otherwise = T.break (\c -> c `elem` " >") t'              in T.all isValidTagName name &&                 not (T.null name) &&                 (not ("/" `T.isPrefixOf` rest) || ("/>" `T.isPrefixOf` rest))

markdown.cabal view

@@ -1,5 +1,5 @@ Name:                markdown-Version:             0.1.8+Version:             0.1.9 Synopsis:            Convert Markdown to HTML, with XSS protection Description:         This library leverages existing high-performance libraries (attoparsec, blaze-html, text, and conduit), and should integrate well with existing codebases. Homepage:            https://github.com/snoyberg/markdown@@ -23,10 +23,9 @@   Build-depends:       base                   >= 4       && < 5                      , blaze-html             >= 0.4                      , attoparsec             >= 0.10-                     , attoparsec-conduit     >= 0.5                      , transformers           >= 0.2.2-                     , conduit                >= 0.5.2.1-                     , conduit-extra+                     , conduit                >= 1.1+                     , conduit-extra          >= 1.1                      , text                      , data-default           >= 0.3                      , xss-sanitize           >= 0.3.3

test/main.hs view

@@ -222,6 +222,9 @@     describe "examples" $ sequence_ examples     describe "John Gruber's test suite" $ sequence_ gruber +    it "comments without spaces #22" $+        check "<!--<>-->" "<!--<>-->"+ getExamples :: IO [Spec] getExamples = do     files <- F.listDirectory "test/examples"