From 78d3add86b564149cd1e7c4527deffbf30cf839b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 26 Aug 2012 14:26:43 -0400 Subject: tweak field name --- Assistant/Threads/MountWatcher.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Assistant/Threads/MountWatcher.hs') diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs index 2d9b5a82b..cc7495602 100644 --- a/Assistant/Threads/MountWatcher.hs +++ b/Assistant/Threads/MountWatcher.hs @@ -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) -- cgit v1.2.3