summaryrefslogtreecommitdiff
path: root/Presence/FGConsole.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/FGConsole.hs')
-rw-r--r--Presence/FGConsole.hs2
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