refactor
This commit is contained in:
parent
43bdebbc2d
commit
8f9951369d
3 changed files with 7 additions and 6 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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue