Skip to content

Instantly share code, notes, and snippets.

@mvaldesdeleon
Created August 12, 2018 09:35
Show Gist options
  • Save mvaldesdeleon/63c4b3216dba1b62760b0e77ae2aa02c to your computer and use it in GitHub Desktop.
Save mvaldesdeleon/63c4b3216dba1b62760b0e77ae2aa02c to your computer and use it in GitHub Desktop.
// -- OUR AMAZING INDEXED BURGER SPEC FROM READY TO TOP BUN ON
// burgerSpec :: IxBurgerBuilder Ready TopBunOn BurgerSpec
// burgerSpec = getEmptyPlate
// :>>= placeEmptyBun
// :>>= addKetchup
// :>>= addPatty
// :>>= addCheese
// :>>= addOnions
// :>>= noLettuce
// :>>= addTomato
// :>>= addTopBun
getEmptyPlate
.ichain(placeEmptyBun)
.ichain(addKetchup)
.ichain(addPatty)
.ichain(addCheese)
.ichain(addOnions)
.ichain(noLettuce)
.ichain(addTomato)
.ichain(addTopBun);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment