mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Assistant monad, stage 1

Browse source 
This adds the Assistant monad, and an AssistantData structure.
So far, none of the assistant's threads run in the monad yet.
This commit is contained in:
Joey Hess 2012-10-29 00:15:43 -04:00
parent ec0bac9d73
commit 4e765327ca
18 changed files with 259 additions and 210 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/BranchChange.hs
View file

@ -8,7 +8,7 @@
module Assistant.BranchChange where
import Control.Concurrent.MSampleVar
import Assistant.Common
import Common.Annex
newtype BranchChangeHandle = BranchChangeHandle (MSampleVar ())