markdown2svg 0.0.1.14 → 0.0.1.15

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• markdown2svg.cabal +2/−2
• src/SepWords.hs +3/−0

@@ -2,7 +2,7 @@ cabal-version:	>=1.8  name:		markdown2svg-version:	0.0.1.14+version:	0.0.1.15 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -31,7 +31,7 @@ source-repository	this   type:		git   location:	git://github.com/YoshikuniJujo/markdown2svg.git-  tag:		0.0.1.14+  tag:		0.0.1.15  executable markdown2svg   hs-source-dirs:	src

@@ -10,6 +10,9 @@  splitWords_ :: Int -> Int -> String -> (String, String) splitWords_ _ _ "" = ("", "")+splitWords_ n k (c : c'@('」') : cs)+	| k > n = ([c, c'], cs)+	| otherwise = let (l, ls) = splitWords_ n (k + 4) cs in (c : c' : l, ls) splitWords_ n k (c : c'@('、') : cs) 	| k > n = ([c, c'], cs) 	| otherwise = let (l, ls) = splitWords_ n (k + 4) cs in (c : c' : l, ls)