diff options
Diffstat (limited to 'Command/NotifyChanges.hs')
| -rw-r--r-- | Command/NotifyChanges.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/NotifyChanges.hs b/Command/NotifyChanges.hs index d0df05551..8ec988832 100644 --- a/Command/NotifyChanges.hs +++ b/Command/NotifyChanges.hs @@ -51,7 +51,7 @@ start = do -- No messages need to be received from the caller, -- but when it closes the connection, notice and terminate. - let receiver = forever $ void $ getLine + let receiver = forever $ void getLine void $ liftIO $ concurrently sender receiver stop |