diff options
Diffstat (limited to 'Remote.hs')
| -rw-r--r-- | Remote.hs | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -29,7 +29,7 @@ module Remote ( ) where import Control.Monad.State (liftIO) -import Control.Monad (when, liftM) +import Control.Monad (when, liftM, filterM) import Data.List import qualified Data.Map as M import Data.Maybe @@ -42,6 +42,7 @@ import Trust import LocationLog import Locations import Utility +import Config import qualified Remote.Git import qualified Remote.S3 @@ -68,7 +69,8 @@ genList = do where process m t = do l <- enumerate t - mapM (gen m t) l + l' <- filterM remoteNotIgnored l + mapM (gen m t) l' gen m t r = do u <- getUUID r generate t r (M.lookup u m) |