lojbanParser 0.1.9 → 0.1.9.1

raw patch · 2 files changed

+3/−1 lines, 2 files

Files

• lojbanParser.cabal +1/−1
• src/Preprocess.hs +2/−0

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		lojbanParser-version:	0.1.9+version:	0.1.9.1 stability:	experimental author:		.iocikun.juj. <PAF01143@nifty.ne.jp> maintainer:	.iocikun.juj. <PAF01143@nifty.ne.jp>

@@ -15,6 +15,8 @@ wordsToString [] = "" wordsToString (("zoi", s1) : (q, s2) : rest) = 	"zoi" ++ s1 ++ " \NUL" ++ s2 ++ quoteInside q rest+wordsToString (("la'o", s1) : (q, s2) : rest) =+	"la'o" ++ s1 ++ " \NUL" ++ s2 ++ quoteInside q rest wordsToString ((w, s) : rest) = w ++ s ++ wordsToString rest  quoteInside :: String -> [(String, String)] -> String