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)