Skip to content
Browse files

Minior corrections to desugaring

  • Loading branch information...
1 parent d27689d commit 8e67d22ecbccceeed2744f5ac2e10e18ecfe4693 Mikael Bung committed May 17, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 haskell.ast.js
View
3 haskell.ast.js
@@ -280,7 +280,7 @@
};
ast.DoBind.prototype = new ast.DoNotation();
ast.DoBind.prototype.partDesugar = function(rest) {
- // x <- expr ; do ==> expr >>= (a -> case a of x -> do; _ -> fail)
+ // x <- expr ; do ==> expr >>= (a -> case a of x -> do; _ -> fail undefined)
return new ast.Application(
new ast.Application(
new ast.VariableLookup(">>="),
@@ -474,6 +474,7 @@
| VariableBinding Identifier
| Combined Identifier Pattern
| ConstantPattern Value
+ | Wildcard
*/
ast.Pattern = function(){};

0 comments on commit 8e67d22

Please sign in to comment.
Something went wrong with that request. Please try again.