diff --git a/Assistant/ThreadedMonad.hs b/Assistant/ThreadedMonad.hs index 16f3a9dd9f..f32adff435 100644 --- a/Assistant/ThreadedMonad.hs +++ b/Assistant/ThreadedMonad.hs @@ -13,6 +13,7 @@ import qualified Annex import Control.Concurrent import Data.Tuple import System.Posix.Types +import System.Posix.Process {- The Annex state is stored in a MVar, so that threaded actions can access - it. -} diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index 5be63fce4f..766c1f89e8 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -17,6 +17,7 @@ import Utility.Types.DirWatcher import Annex.BranchState import Data.Map as M +import System.Posix.Process {- This thread watches for changes to the gitAnnexTransferDir, - and updates the DaemonStatus's map of ongoing transfers. -} diff --git a/Utility/Parallel.hs b/Utility/Parallel.hs index 9df95ab2b0..f4a79316c7 100644 --- a/Utility/Parallel.hs +++ b/Utility/Parallel.hs @@ -9,6 +9,8 @@ module Utility.Parallel where import Common +import System.Posix.Process + {- Runs an action in parallel with a set of values. - Returns the values partitioned into ones with which the action succeeded, - and ones with which it failed. -}