diff options
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Role/Watcher.hs b/Role/Watcher.hs index fddd59f..620733c 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -4,15 +4,13 @@ import Types import Log import Pty import CmdLine -import WebSockets import SessionID import Control.Concurrent.STM -import qualified Data.Text as T -import Role.Developer (processSessionStart, getUserMessage, emitOutput) +import Role.Developer (run', processSessionStart, getUserMessage, emitOutput) run :: WatchOpts -> IO () -run os = runClientApp $ clientApp (ConnectMode (T.pack (watchUrl os))) watcher +run = run' watcher . watchUrl watcher :: TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO () watcher _ichan ochan _ = inRawMode $ do |