stringLiteral :: TokenParser String
stringLiteral = token go P.<?> "string literal"
  where go (StringLiteral s) = Just s
        go _                 = Nothing
stringLiteral :: TokenParser String
stringLiteral = token go P.<?> "string literal"
  where go (StringLiteral s) = Just s
        go _                 = Nothing
stringLiteral = token go P.<?> "string literal"
  where go (StringLiteral s) = Just s
        go _                 = Nothing