diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-10 21:36:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-10 22:10:26 -0400 |
| commit | 9d5b42222a10050fc733a49c427359f88e8be36c (patch) | |
| tree | 4fa0b1d6cf4a38ba772557dc4277fbd887020e46 /Assistant/Types/Changes.hs | |
| parent | e107ddb4507d92303e14ebee3ccdec7662350031 (diff) | |
assistant: generate better commits for renames
Diffstat (limited to 'Assistant/Types/Changes.hs')
| -rw-r--r-- | Assistant/Types/Changes.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |