diff options
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 |