diff options
Diffstat (limited to 'Presence/FGConsole.hs')
-rw-r--r-- | Presence/FGConsole.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/FGConsole.hs b/Presence/FGConsole.hs index 93b9a590..c72addff 100644 --- a/Presence/FGConsole.hs +++ b/Presence/FGConsole.hs | |||
@@ -37,7 +37,7 @@ monitorTTY handler = do | |||
37 | (do | 37 | (do |
38 | threadWaitRead rfd | 38 | threadWaitRead rfd |
39 | (cs,cnt) <- fdRead rfd 1 | 39 | (cs,cnt) <- fdRead rfd 1 |
40 | forM_ cs (handler . unsafeCoerce . trace "read byte") | 40 | forM_ cs (handler . unsafeCoerce {- . trace "read byte" -}) |
41 | monitor) | 41 | monitor) |
42 | `E.catch` | 42 | `E.catch` |
43 | \(e :: IOException) -> do | 43 | \(e :: IOException) -> do |