diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 19:07:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 19:07:10 -0400 |
| commit | 86b3857a4c1edafef817935ad3c5d63e6d2d3b25 (patch) | |
| tree | 119204ef14b23c9b3d99b19888f4a63e8157d702 /Assistant/Monad.hs | |
| parent | a23b5c6e324068108043a999bb816379ec417bf2 (diff) | |
moved ThreadedMonad to Types
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 |