From 37eb3fc850cb28bcf72d971b4fff99902bbce811 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 29 Apr 2017 15:13:44 -0400
Subject: use developer control window to tell when write access is granted

---
 Role/Watcher.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'Role/Watcher.hs')

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
-- 
cgit v1.2.3