Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs Secret

Created June 10, 2021 10:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dminuoso/20dcc292c7e9536e6fd3ab73b7d83889 to your computer and use it in GitHub Desktop.
Save dminuoso/20dcc292c7e9536e6fd3ab73b7d83889 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
t :: ...
t = case () of
_ | x `elem` [A,B,C]
-> ...
|x `elem` [D,E]
-> ...
f :: S -> ...
f x | x `elem` [A,B,C]
-> ...
|x `elem` [D,E]
-> ...
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment