diff --git a/lojbanParser.cabal b/lojbanParser.cabal --- a/lojbanParser.cabal +++ b/lojbanParser.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: lojbanParser -version: 0.1.9 +version: 0.1.9.1 stability: experimental author: .iocikun.juj. maintainer: .iocikun.juj. diff --git a/src/Preprocess.hs b/src/Preprocess.hs --- a/src/Preprocess.hs +++ b/src/Preprocess.hs @@ -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