diff options
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Drop.hs | 2 | ||||
-rw-r--r-- | Assistant/TransferrerPool.hs | 1 | ||||
-rw-r--r-- | Assistant/Types/TransferQueue.hs | 1 |
3 files changed, 1 insertions, 3 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index 1fc2f75d9..d677a69c8 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -11,7 +11,7 @@ import Assistant.Common import Assistant.DaemonStatus import Logs.Location import Logs.Trust -import Types.Remote (AssociatedFile, uuid) +import Types.Remote (uuid) import qualified Remote import qualified Command.Drop import Command diff --git a/Assistant/TransferrerPool.hs b/Assistant/TransferrerPool.hs index 68ec743f8..d9104f74d 100644 --- a/Assistant/TransferrerPool.hs +++ b/Assistant/TransferrerPool.hs @@ -16,7 +16,6 @@ import Control.Concurrent.STM import System.Process (create_group) import Control.Exception (throw) import Control.Concurrent -import Types.Remote (AssociatedFile) {- Runs an action with a Transferrer from the pool. -} withTransferrer :: FilePath -> TransferrerPool -> (Transferrer -> IO a) -> IO a diff --git a/Assistant/Types/TransferQueue.hs b/Assistant/Types/TransferQueue.hs index e4e305d5a..e4bf2ae92 100644 --- a/Assistant/Types/TransferQueue.hs +++ b/Assistant/Types/TransferQueue.hs @@ -9,7 +9,6 @@ module Assistant.Types.TransferQueue where import Common.Annex import Logs.Transfer -import Types.Remote import Control.Concurrent.STM import Utility.TList |