summaryrefslogtreecommitdiff
path: root/Assistant/Threads/NetWatcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-26 14:26:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-26 14:26:43 -0400
commit78d3add86b564149cd1e7c4527deffbf30cf839b (patch)
tree6c5d54557f30dc1bafcf6b52eca31c5a75b31df8 /Assistant/Threads/NetWatcher.hs
parent20a451a58bf6be3359d458cebb9e9e192313e11a (diff)
tweak field name
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