diff options
| author | Peter Kasza <mr.schyte@gmail.com> | 2012-04-14 20:47:05 +0200 |
|---|---|---|
| committer | Peter Kasza <mr.schyte@gmail.com> | 2012-04-14 20:47:05 +0200 |
| commit | daf28d5b756618290e9cf3938c4cb3f2f8f98a22 (patch) | |
| tree | 2571883ce046aa207947ac8fbfc870624b9e99f2 /src/Plugins/Mail.hs | |
| parent | 16517597eeeb4a1f62e10c5c5b503b6effa3e02e (diff) | |
| download | xmobar-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.hs | 3 |
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 |