markdown-pap 0.0.1.8 → 0.0.1.9

raw patch · 2 files changed

+6/−3 lines, 2 files

Files

• markdown-pap.cabal +2/−2
• src/Text/Markdown/Pap/Parser.hs +4/−1

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		markdown-pap-version:	0.0.1.8+version:	0.0.1.9 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -28,7 +28,7 @@ source-repository	this   type:		git   location:	git://github.com/YoshikuniJujo/markdown-pap.git-  tag:		0.0.1.8+  tag:		0.0.1.9  library   hs-source-dirs:	src

@@ -77,12 +77,15 @@ line :: String 	= l:<(`notElem` "#\n")>+		{ return l } +line' :: String+	= l:<(`notElem` "\n")>+			{ return l }+ code :: String 	= l:fourSpacesLine c:code		{ return $ l ++ c } 	/ l:fourSpacesLine			{ return l }  fourSpacesLine :: String-	= _:fourSpaces l:line '\n'+		{ return $ l ++ "\n" }+	= _:fourSpaces l:line' '\n'+		{ return $ l ++ "\n" }  fourSpaces :: () 	= ' ' ' ' ' ' ' '