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 | |
| parent | 16517597eeeb4a1f62e10c5c5b503b6effa3e02e (diff) | |
| download | xmobar-daf28d5b756618290e9cf3938c4cb3f2f8f98a22.tar.gz xmobar-daf28d5b756618290e9cf3938c4cb3f2f8f98a22.tar.bz2 | |
Removed 'modifyTVar' to be compatible with STM-2.3.
| -rw-r--r-- | src/Plugins/Mail.hs | 3 | ||||
| -rw-r--r-- | xmobar.cabal | 2 |
2 files changed, 1 insertions, 4 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 diff --git a/xmobar.cabal b/xmobar.cabal index b08c101..0114695 100644 --- a/xmobar.cabal +++ b/xmobar.cabal @@ -107,7 +107,7 @@ executable xmobar X11 == 1.6.*, mtl == 2.0.*, parsec == 3.1.*, - stm == 2.2.* + stm == 2.3.* if flag(small_base) build-depends: |