Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
a guest
Jun 19th, 2018
107
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Haskell
0.19 KB
| None
|
0
0
raw
download
clone
embed
print
report
withraw
::
Account
->
Int
->
STM
(
)
withraw acc amount
=
do
{
bal
<-
readTVar acc
;
if
amount
>
0
&&
amount
>
bal
then
retry
else
writeTVar acc
(
bal
-
amount
)
}
Add Comment
Please,
Sign In
to add comment
Public Pastes
scatter_title_not_title
HTML | 3 min ago | 7.58 KB
Roblox FPS displayer and checker
Lua | 7 min ago | 1.96 KB
DialogueScript (LoaclScript ) (Update)
CSS | 8 min ago | 0.60 KB
vip
Lua | 20 min ago | 21.75 KB
*Spiral Alphabet Pattern* Solution from @Codi...
Python | 28 min ago | 1.53 KB
PizzaBox (Script)
CSS | 33 min ago | 0.53 KB
Untitled
HTML | 48 min ago | 0.26 KB
External Command Execution
C | 49 min ago | 2.68 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!