diff options
Diffstat (limited to 'Assistant/Monad.hs')
| -rw-r--r-- | Assistant/Monad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Monad.hs b/Assistant/Monad.hs index 1f8ccacbe..c13d3a372 100644 --- a/Assistant/Monad.hs +++ b/Assistant/Monad.hs @@ -26,7 +26,7 @@ import "mtl" Control.Monad.Reader import Control.Monad.Base (liftBase, MonadBase) import Common.Annex -import Assistant.ThreadedMonad +import Assistant.Types.ThreadedMonad import Assistant.DaemonStatus import Assistant.ScanRemotes import Assistant.TransferQueue @@ -112,6 +112,7 @@ asIO2 a = do (<<~) :: (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 daemonStatus :: Assistant DaemonStatus |