diff options
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Role/Watcher.hs b/Role/Watcher.hs index dd49621..f314b46 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -10,7 +10,6 @@ import Role.Developer import Control.Concurrent.STM import Control.Concurrent.STM.TMChan -import Data.Time.Clock.POSIX run :: WatchOpts -> IO () run = run' watcher . watchUrl @@ -20,14 +19,4 @@ watcher dsv _ichan ochan sid = withSessionLogger sid $ \logger -> inRawMode $ do sk <- genMySessionKey (st, startoutput) <- processSessionStart sk ochan logger dsv emitOutput startoutput - go logger st - where - go logger st = do - ts <- getPOSIXTime - v <- atomically $ getServerMessage ochan st ts - case v of - Nothing -> return () - Just (o, msg) -> do - _ <- logger msg - emitOutput o - go logger st + watchSessionReadOnly ochan logger st |