Skip to content

Instantly share code, notes, and snippets.

@yfyf
Last active August 29, 2015 14:21
Show Gist options
  • Save yfyf/f824fbc89cd6edc34ec8 to your computer and use it in GitHub Desktop.
Save yfyf/f824fbc89cd6edc34ec8 to your computer and use it in GitHub Desktop.
Spot the error
happyNewToken action sts stk
= lexwrap(\tk ->
let cont i = happyDoAction i tk action sts stk in
case tk of {
alexEOF -> happyDoAction 18# tk action sts stk;
TokenLet -> cont 1#;
TokenIn -> cont 2#;
TokenFresh -> cont 3#;
TokenSpawn -> cont 4#;
TokenEnd -> cont 5#;
TokenNum happy_dollar_dollar -> cont 6#;
<..>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment