flaw-ui/Flaw/UI/Button.hs from quyse/flaw

flaw-ui/Flaw/UI/Button.hs

          pressed <- readTVar pressedVar

Found

pressed <- readTVar pressedVar
when pressed $
  do click
     writeTVar pressedVar False
return True

Perhaps

Combine with flaw-ui/Flaw/UI/Button.hs:160:9

quyse/flaw