summaryrefslogtreecommitdiff
path: root/Assistant/Monad.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-08 14:06:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-08 14:06:43 -0400
commite146cc372b8daa70fa093c9f27cedf7188ce72fc (patch)
treee5fb8aa7619fd4d3c4129f4f6f21b728cb6d3e4c /Assistant/Monad.hs
parent7466500782b89ea4d1aa038b8243268e8e261821 (diff)
rename
Diffstat (limited to 'Assistant/Monad.hs')
-rw-r--r--Assistant/Monad.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Monad.hs b/Assistant/Monad.hs
index 3b6dfedee..a676bc8fb 100644
--- a/Assistant/Monad.hs
+++ b/Assistant/Monad.hs
@@ -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