pushed Assistant monad down into DaemonStatus code
Currently have three old versions of functions that more reworking is needed to remove: getDaemonStatusOld, modifyDaemonStatusOld_, and modifyDaemonStatusOld
This commit is contained in:
parent
ea8df8fe9f
commit
47d94eb9a4
20 changed files with 141 additions and 152 deletions
|
@ -13,7 +13,6 @@ module Assistant.Monad (
|
|||
newAssistantData,
|
||||
runAssistant,
|
||||
getAssistant,
|
||||
withAssistant,
|
||||
liftAnnex,
|
||||
(<~>),
|
||||
(<<~),
|
||||
|
@ -110,6 +109,3 @@ asIO2 a = do
|
|||
{- Runs an IO action on a selected field of the AssistantData. -}
|
||||
(<<~) :: (a -> IO b) -> (AssistantData -> a) -> Assistant b
|
||||
io <<~ v = reader v >>= liftIO . io
|
||||
|
||||
withAssistant :: (AssistantData -> a) -> (a -> IO b) -> Assistant b
|
||||
withAssistant v io = io <<~ v
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue