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.5 +version: 0.0.1.6 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.5 + tag: 0.0.1.6 executable markdown2svg hs-source-dirs: src diff --git a/src/markdown2svg.hs b/src/markdown2svg.hs --- a/src/markdown2svg.hs +++ b/src/markdown2svg.hs @@ -16,7 +16,7 @@ let size = getSizeR opts dir = getDir opts cnt <- readFile fp - case parseMrd cnt of + case parse cnt of Just t -> forM_ (zip [1 ..] $ textToSVG True size t) $ \(i, s) -> writeFile (mkSVGFileName dir fp i) s _ -> return ()