From f464f7600a24bb59a882f2a1cb56f8590708ffcf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 22 Apr 2017 01:25:54 -0400 Subject: minor --- Role/Watcher.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Role/Watcher.hs') 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 -- cgit v1.2.3