summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/main.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/main.hs b/src/main.hs
index de86355..f1016f2 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -53,13 +53,13 @@ app client = do
hSetBuffering cLogHandle LineBuffering
logToTTY <- hIsTerminalDevice cLogHandle
- (putLog, takeLog0) <- newChan
+ (putLog0, takeLog) <- newChan
let
- takeLog1 = if cLogTime then takeLog0 >>= prefixTimestamp else takeLog0
- takeLog2 = showUnprintable <$> takeLog1
- takeLog3 = if logToTTY then takeLog2 else stripSGR <$> takeLog2
- takeLog = takeLog3
+ putLog1 = if cLogTime then (putLog0 =<<) . prefixTimestamp else putLog0
+ putLog2 = putLog1 . showUnprintable
+ putLog3 = if logToTTY then putLog2 else putLog2 . stripSGR
+ putLog = putLog3
_ <-
addMatch client matchAny $ \case