使用解析器组合器解析单引号字符串

I am trying to build a parser that singly quoted strings using the following code:I am trying to build a parser that singly quote