tweak field name

This commit is contained in:
Joey Hess 2012-08-26 14:26:43 -04:00
parent 20a451a58b
commit 78d3add86b
10 changed files with 12 additions and 13 deletions

View file

@ -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)

View file

@ -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