From 9d5b42222a10050fc733a49c427359f88e8be36c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Mar 2013 21:36:13 -0400
Subject: assistant: generate better commits for renames

---
 Assistant/Types/Changes.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Assistant/Types/Changes.hs')

diff --git a/Assistant/Types/Changes.hs b/Assistant/Types/Changes.hs
index d4e1b28bc..ee797b8fe 100644
--- a/Assistant/Types/Changes.hs
+++ b/Assistant/Types/Changes.hs
@@ -12,6 +12,7 @@ import Types.Key
 import Utility.TSet
 
 import Data.Time.Clock
+import Control.Concurrent.STM
 
 data ChangeInfo = AddChange Key | LinkChange (Maybe Key) | RmChange | RmDirChange
 	deriving (Show, Eq)
@@ -40,7 +41,7 @@ data Change
 	deriving (Show)
 
 newChangeChan :: IO ChangeChan
-newChangeChan = newTSet
+newChangeChan = atomically newTSet
 
 isPendingAddChange :: Change -> Bool
 isPendingAddChange (PendingAddChange {}) = True
-- 
cgit v1.2.3