Skip to content

Instantly share code, notes, and snippets.

@bananabrick

bananabrick/what.hs

Created July 19, 2020 05:13
Show Gist options
  • Save bananabrick/0b34347826f79960d17f5d80bd6cb05a to your computer and use it in GitHub Desktop.
Save bananabrick/0b34347826f79960d17f5d80bd6cb05a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
what.hs
appParser :: Parser CoreExpr
appParser = foldl App <$> coreWithoutAppWithParen <*> some coreWithParenParser
-- Result is this?
App {applier = Var {varName = "f"}, appliedOn = App {applier = Num {number = 2}, appliedOn = Num {number = 3}}}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment