diff options
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/MountWatcher.hs | 2 | ||||
| -rw-r--r-- | Assistant/Threads/NetWatcher.hs | 5 |
2 files changed, 3 insertions, 4 deletions
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) diff --git a/Assistant/Threads/NetWatcher.hs b/Assistant/Threads/NetWatcher.hs index 2f71b0825..117ab7a20 100644 --- a/Assistant/Threads/NetWatcher.hs +++ b/Assistant/Threads/NetWatcher.hs @@ -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 |