Skip to content

Instantly share code, notes, and snippets.

@KirinDave

KirinDave/Garbage3.hs

Last active March 8, 2018 21:28
Show Gist options
  • Save KirinDave/a173f8d2fb2c6f038c12d4a5e6676506 to your computer and use it in GitHub Desktop.
Save KirinDave/a173f8d2fb2c6f038c12d4a5e6676506 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Garbage3.hs
-- Simplified Fix
newtype Fix f = Fix (f (Fix f))
-- Helper functions
fix :: f (Fix f) -> Fix f
fix = Fix
unfix :: Fix f -> f (Fix f)
unfix (Fix f) = f
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment