longLiteral :: CharParser st (String, Bool)
longLiteral = do
    string "\"\"\""
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\"\"\""
    return (ls, True)
longLiteral :: CharParser st (String, Bool)
longLiteral = do
    string "\"\"\""
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\"\"\""
    return (ls, True)
longLiteral = do
    string "\"\"\""
    ls <- flat $ manyTill charOrQuoteEscape $ try $ string "\"\"\""
    return (ls, True)