diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-22 15:14:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-22 15:16:10 -0400 |
| commit | 3adfdf1ae27cd4b6419ce5be14ffb3712339065a (patch) | |
| tree | 9ce265ece85d2e3829eba85d964f2a123699f908 /Role/User.hs | |
| parent | 7987157bfd99b8e2ec78f5030a49c2e16bf08321 (diff) | |
| download | debug-me-3adfdf1ae27cd4b6419ce5be14ffb3712339065a.tar.gz | |
add framing protocol for websockets
Diffstat (limited to 'Role/User.hs')
| -rw-r--r-- | Role/User.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Role/User.hs b/Role/User.hs index daaaa71..1d1702e 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -33,7 +33,7 @@ run os = do putStr "Connecting to debug-me server..." hFlush stdout esv <- newEmptyTMVarIO - runClientApp $ clientApp (InitMode mempty) $ \ichan ochan sid -> do + runClientApp $ clientApp (InitMode mempty) User developerMessages $ \ichan ochan sid -> do let url = sessionIDUrl sid "localhost" 8081 putStrLn "" putStrLn "Others can connect to this session and help you debug by running:" @@ -47,6 +47,10 @@ run os = do sessionDone fromMaybe (ExitFailure 101) <$> atomically (tryReadTMVar esv) +developerMessages :: LogMessage -> Maybe (Message Entered) +developerMessages (Developer m) = Just m +developerMessages (User _) = Nothing + shellCommand :: UserOpts -> IO (String, [String]) shellCommand os = case cmdToRun os of Just v -> return v |