tweak field name
This commit is contained in:
parent
20a451a58b
commit
78d3add86b
10 changed files with 12 additions and 13 deletions
|
@ -175,7 +175,7 @@ remotesUnder st dstatus dir = runThreadState st $ do
|
|||
updateKnownRemotes dstatus
|
||||
return $ map snd $ filter fst pairs
|
||||
where
|
||||
checkremote repotop r = case Remote.path r of
|
||||
checkremote repotop r = case Remote.localpath r of
|
||||
Just p | dirContains dir (absPathFrom repotop p) ->
|
||||
(,) <$> pure True <*> updateRemote r
|
||||
_ -> return (False, r)
|
||||
|
|
|
@ -128,6 +128,5 @@ handleConnection st dstatus scanremotes = do
|
|||
|
||||
{- Finds network remotes. -}
|
||||
networkRemotes :: ThreadState -> IO [Remote]
|
||||
networkRemotes st = runThreadState st $ do
|
||||
rs <- remoteList
|
||||
return $ filter (isNothing . Remote.path) rs
|
||||
networkRemotes st = runThreadState st $
|
||||
filter (isNothing . Remote.localpath) <$> remoteList
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue