search

prozak / rtk

1 stars 0 forks source link

Notworking case in qq pattern matching #12

Closed prozak closed 11 years ago

prozak commented 12 years ago 
let [rule|$name:nm = $clause:cl1 | $clause:cl2 | $clause:cl3 | $clause:cl4 ;|] = [rule| Rule = id '=' Clause ';' 
                                                                                     | id ':' id '=' Clause ';'
                                                                                     | id '.' id ':' id '=' Clause ';'
                                                                                     | '.' id ':' id '=' Clause ';' ;|]
putStrLn $ show cl1
prozak commented 12 years ago

Problem is that $clause:cl1 (and others) not translated to the pattern var.

Unmyth commented 11 years ago

It is working now. Are there any other problems?

prozak commented 11 years ago

It is ok for now