diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-22 01:25:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-22 01:27:33 -0400 |
| commit | f464f7600a24bb59a882f2a1cb56f8590708ffcf (patch) | |
| tree | 5a7d974520f811007f462ee016400f43d16160a0 /Role/Watcher.hs | |
| parent | 5a48331ca8852c3c9fe500fb66ef7436ae0dc20d (diff) | |
| download | debug-me-f464f7600a24bb59a882f2a1cb56f8590708ffcf.tar.gz | |
minor
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Role/Watcher.hs b/Role/Watcher.hs index 110c1ef..fddd59f 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -9,13 +9,13 @@ import SessionID import Control.Concurrent.STM import qualified Data.Text as T -import Role.Developer (processSessionStart, getUserMessage, Output(..), emitOutput) +import Role.Developer (processSessionStart, getUserMessage, emitOutput) run :: WatchOpts -> IO () run os = runClientApp $ clientApp (ConnectMode (T.pack (watchUrl os))) watcher watcher :: TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO () -watcher _ichan ochan sid = inRawMode $ do +watcher _ichan ochan _ = inRawMode $ do st <- processSessionStart ochan nullLogger go st where |