summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Mail.hs
diff options
context:
space:
mode:
authorPeter Kasza <mr.schyte@gmail.com>2012-04-14 20:47:05 +0200
committerPeter Kasza <mr.schyte@gmail.com>2012-04-14 20:47:05 +0200
commitdaf28d5b756618290e9cf3938c4cb3f2f8f98a22 (patch)
tree2571883ce046aa207947ac8fbfc870624b9e99f2 /src/Plugins/Mail.hs
parent16517597eeeb4a1f62e10c5c5b503b6effa3e02e (diff)
downloadxmobar-daf28d5b756618290e9cf3938c4cb3f2f8f98a22.tar.gz
xmobar-daf28d5b756618290e9cf3938c4cb3f2f8f98a22.tar.bz2
Removed 'modifyTVar' to be compatible with STM-2.3.
Diffstat (limited to 'src/Plugins/Mail.hs')
-rw-r--r--src/Plugins/Mail.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs
index 58431ce..b11b7ad 100644
--- a/src/Plugins/Mail.hs
+++ b/src/Plugins/Mail.hs
@@ -56,9 +56,6 @@ instance Exec Mail where
| (m, n) <- zip ts ns
, n /= 0 ]
-modifyTVar :: TVar a -> (a -> a) -> STM ()
-modifyTVar v f = readTVar v >>= writeTVar v . f
-
handle :: TVar (Set String) -> Event -> IO ()
handle v e = atomically $ modifyTVar v $ case e of
Created {} -> create