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

rename

Browse source
This commit is contained in:
Joey Hess 2012-11-08 14:06:43 -04:00
parent 0238e4ba07
commit 08916ef695
4 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Monad.hs
View file

@ -61,7 +61,7 @@ data AssistantData = AssistantData
, changeChan :: ChangeChan
, branchChangeHandle :: BranchChangeHandle
, buddyList :: BuddyList
, netMessagerControl :: NetMessagerControl
, netMessager :: NetMessager
}
newAssistantData :: ThreadState -> DaemonStatusHandle -> IO AssistantData
@ -77,7 +77,7 @@ newAssistantData st dstatus = AssistantData
<*> newChangeChan
<*> newBranchChangeHandle
<*> newBuddyList
<*> newNetMessagerControl
<*> newNetMessager
runAssistant :: AssistantData -> Assistant a -> IO a
runAssistant d a = runReaderT (mkAssistant a) d