diff --git a/markdown2svg.cabal b/markdown2svg.cabal --- a/markdown2svg.cabal +++ b/markdown2svg.cabal @@ -2,7 +2,7 @@ cabal-version: >=1.8 name: markdown2svg -version: 0.0.1.3 +version: 0.0.1.4 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -31,7 +31,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/markdown2svg.git - tag: 0.0.1.3 + tag: 0.0.1.4 executable markdown2svg hs-source-dirs: src diff --git a/src/Parser.hs b/src/Parser.hs --- a/src/Parser.hs +++ b/src/Parser.hs @@ -51,8 +51,8 @@ markdown1 :: Text = h:header { return h } - / c:code { return $ Code c } / l:list { return $ List l } + / c:code { return $ Code c } / p:paras { return $ Paras p } header :: Text @@ -123,7 +123,8 @@ = ps:para+ { return ps } para :: String - = ls:(!_:header !_:fourSpaces l:line '\n' { return l })+ _:('\n' / !_ / !_:para) { return $ concat ls } + = ls:(!_:header !_:fourSpaces l:line '\n' { return l })+ _:('\n' / !_ / !_:para) !_:list + { return $ concat ls } shllw :: () = _:dmmy[shallow]