From daf28d5b756618290e9cf3938c4cb3f2f8f98a22 Mon Sep 17 00:00:00 2001
From: Peter Kasza <mr.schyte@gmail.com>
Date: Sat, 14 Apr 2012 20:47:05 +0200
Subject: Removed 'modifyTVar' to be compatible with STM-2.3.

---
 src/Plugins/Mail.hs | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'src/Plugins')

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
-- 
cgit v1.2.3