diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-30 14:34:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-30 14:34:48 -0400 |
| commit | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (patch) | |
| tree | 2d28cd2db176911d2f2b49df6440e10e8eeeeccc /Assistant/Monad.hs | |
| parent | dbf9ac41086ffb39296bd1d977cc1db844ff0b32 (diff) | |
split remaining assistant types
Diffstat (limited to 'Assistant/Monad.hs')
| -rw-r--r-- | Assistant/Monad.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/Assistant/Monad.hs b/Assistant/Monad.hs index 4286e0afb..dcb01724c 100644 --- a/Assistant/Monad.hs +++ b/Assistant/Monad.hs @@ -17,7 +17,6 @@ module Assistant.Monad ( liftAnnex, (<~>), (<<~), - daemonStatus, asIO, asIO2, ) where @@ -28,10 +27,9 @@ import Control.Monad.Base (liftBase, MonadBase) import Common.Annex import Assistant.Types.ThreadedMonad import Assistant.Types.DaemonStatus -import Assistant.DaemonStatus import Assistant.Types.ScanRemotes -import Assistant.TransferQueue -import Assistant.TransferSlots +import Assistant.Types.TransferQueue +import Assistant.Types.TransferSlots import Assistant.Types.Pushes import Assistant.Types.BranchChange import Assistant.Types.Commits @@ -115,6 +113,3 @@ io <<~ v = reader v >>= liftIO . io withAssistant :: (AssistantData -> a) -> (a -> IO b) -> Assistant b withAssistant v io = io <<~ v - -daemonStatus :: Assistant DaemonStatus -daemonStatus = getDaemonStatus <<~ daemonStatusHandle |