rename
This commit is contained in:
parent
0238e4ba07
commit
08916ef695
4 changed files with 10 additions and 10 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue