yogsototh/haskell-turtle-library
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Polished source code

Browse source
This commit is contained in:
Gabriel Gonzalez 2015-01-25 11:00:20 -08:00
parent f66ad20f0e
commit 3aa11fd21c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Turtle/Shell.hs
View file

@ -197,6 +197,6 @@ select as = Shell (\(FoldM step begin done) -> do
-- | Acquire a `Protected` resource within a `Shell` in an exception-safe way
with :: Protected a -> Shell a
with resource = Shell (\(FoldM step begin done) -> do
x <- begin
x <- begin
x' <- bracket (acquire resource) snd (\(a, _) -> step x a)
done x' )