From 82dbc4387ccb3bec27788d920c94145024f928f0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 3 Dec 2020 14:57:22 -0400 Subject: [PATCH] comments --- Types/Messages.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Types/Messages.hs b/Types/Messages.hs index 273fd713b2..b61eec8cc9 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -61,9 +61,14 @@ newMessageState = do , promptLock = promptlock } +-- | When communicating with a child process over a pipe while it is +-- performing some action, this is used to pass back output that the child +-- would normally display to the console. data SerializedOutput = OutputMessage S.ByteString | OutputError String | ProgressMeter (Maybe Integer) MeterState MeterState | JSONObject L.ByteString + -- ^ This is always sent, it's up to the consumer to decide if it + -- wants to display JSON, or human-readable messages. deriving (Show, Read)