Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs

Created May 17, 2018 05:51
Show Gist options
  • Save dminuoso/c7c96ecd3ebc8405fdcc062f6608c227 to your computer and use it in GitHub Desktop.
Save dminuoso/c7c96ecd3ebc8405fdcc062f6608c227 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
catchesHandler :: [Handler a] -> SomeException -> IO a
catchesHandler handlers e = foldr tryHandler (throw e) handlers
where tryHandler (Handler handler) res
= case fromException e of
Just e' -> handler e'
Nothing -> res
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment