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

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