diff options
author | 2012-11-08 14:06:43 -0400 | |
---|---|---|
committer | 2012-11-08 14:06:43 -0400 | |
commit | e146cc372b8daa70fa093c9f27cedf7188ce72fc (patch) | |
tree | e5fb8aa7619fd4d3c4129f4f6f21b728cb6d3e4c /Assistant/Monad.hs | |
parent | 7466500782b89ea4d1aa038b8243268e8e261821 (diff) |
rename
Diffstat (limited to 'Assistant/Monad.hs')
-rw-r--r-- | Assistant/Monad.hs | 4 |
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 |