summaryrefslogtreecommitdiff
path: root/Assistant/Threads/NetWatcher.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/Threads/NetWatcher.hs')
-rw-r--r--Assistant/Threads/NetWatcher.hs5
1 files changed, 2 insertions, 3 deletions
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