shortLiteral :: CharParser st (String, Bool)
shortLiteral = do
    char '"'
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\""
    return (ls, False)
shortLiteral :: CharParser st (String, Bool)
shortLiteral = do
    char '"'
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\""
    return (ls, False)
shortLiteral = do
    char '"'
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\""
    return (ls, False)