GLLBugReport.scala

import language.postfixOps
import com.codecommit.gll._

object GLLBugReport extends RegexParsers {
  def quote(s: Any) = "\"" + s + "\""
  def showResults[R](s: Stream[Result[R]]) =
    ((s map {
      case f @ Failure(a , b) => ("Failure", a, quote(b))
      case s @ Success(a, b) => ("Success", quote(a), quote(b))
    }) toList)

  def main(args: Array[String]) {
    val smileyParen: Parser[String] = "(" | ")"
    println(smileyParen)
    println(showResults(smileyParen("(")))
    println(showResults(smileyParen(")")))
  }
}
/*
Output before the fix:

/(\\\()|(\))/
List((Failure,ExpectedRegex((\\\()|(\))),"("))
List((Success,")",""))

Output after the fix:

/(\()|(\))/
List((Success,"(",""))
List((Success,")",""))
 */