diff options
Diffstat (limited to 'Command/NotifyChanges.hs')
| -rw-r--r-- | Command/NotifyChanges.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/NotifyChanges.hs b/Command/NotifyChanges.hs index d0df05551..36997666d 100644 --- a/Command/NotifyChanges.hs +++ b/Command/NotifyChanges.hs @@ -19,8 +19,8 @@ import Control.Concurrent import Control.Concurrent.Async import Control.Concurrent.STM -def :: [Command] -def = [noCommit $ command "notifychanges" paramNothing seek SectionPlumbing +cmd :: [Command] +cmd = [noCommit $ command "notifychanges" paramNothing seek SectionPlumbing "sends notification when git refs are changed"] seek :: CommandSeek @@ -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 |