diff options
author | joe <joe@jerkface.net> | 2014-03-16 18:42:38 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-03-16 18:42:38 -0400 |
commit | 6f6f85f11980e782917cb84c7a66c24f41f19ac3 (patch) | |
tree | a68a6370e4651ec7bee6f97a9f91a65e37fdb056 /Presence/ConsoleWriter.hs | |
parent | 5f0d519e73baf763c8caeab10d90fa9a55dc71b8 (diff) |
Fixed pty device names
Diffstat (limited to 'Presence/ConsoleWriter.hs')
-rw-r--r-- | Presence/ConsoleWriter.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs index aca4bf98..9fce6701 100644 --- a/Presence/ConsoleWriter.hs +++ b/Presence/ConsoleWriter.hs | |||
@@ -254,8 +254,9 @@ writeAllPty cw msg = do | |||
254 | us <- atomically $ readTVar (csUtmp cw) | 254 | us <- atomically $ readTVar (csUtmp cw) |
255 | let ptys = Map.filterWithKey ispty us | 255 | let ptys = Map.filterWithKey ispty us |
256 | ispty k _ = "pts/" `Text.isPrefixOf` k | 256 | ispty k _ = "pts/" `Text.isPrefixOf` k |
257 | && Text.all isDigit (Text.drop 4 k) | ||
257 | bs <- forM (Map.toList ptys) $ \(tty,utmp) -> do | 258 | bs <- forM (Map.toList ptys) $ \(tty,utmp) -> do |
258 | deliverTerminalMessage cw tty utmp msg | 259 | deliverTerminalMessage cw ("/dev/" <> tty) utmp msg |
259 | return $ or bs | 260 | return $ or bs |
260 | 261 | ||
261 | resource :: UtmpRecord -> Text | 262 | resource :: UtmpRecord -> Text |