úÎ!µ"«Üd      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcSafeVdeSafeX¥1fghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–Safe  —˜™š›œžŸ ¡2ž32015 Joey Hess <id@joeyh.name> BSD-2-clauseNone=?PIæ concurrent-outputBuffered output.concurrent-outputAThis alias is provided to avoid breaking backwards compatibility.concurrent-outputValues that can be output.concurrent-output.A shared global variable for the OutputHandle.concurrent-output•Holds a lock while performing an action. This allows the action to perform its own output to the console, without using functions from this module.VWhile this is running, other threads that try to lockOutput will block. Any calls to " and &^ will not block, but the output will be buffered and displayed only once the action is done.concurrent-output%Blocks until we have the output lock.concurrent-output0Tries to take the output lock, without blocking.concurrent-output/Only safe to call after taking the output lock. concurrent-output%Use this around any actions that use " or &nThis is necessary to ensure that buffered concurrent output actually gets displayed before the program exits.!concurrent-output&Blocks until any processes started by &J have finished, and any buffered output is displayed. Also blocks while  is is use. A calls this at the end, so you do not normally need to use this."concurrent-outputDisplays a value to stdout.{Uses locking to ensure that the whole output occurs atomically even when other threads are concurrently generating output._No newline is appended to the value, so if you want a newline, be sure to include it yourself.£When something else is writing to the console at the same time, this does not block. It buffers the value, so it will be displayed once the other writer is done.0When outputConcurrent is used within a call to ‰, the output is displayed above the currently open console regions. Only lines ending in a newline are displayed in this case (it uses 7).#concurrent-outputLike ", but displays to stderr.(Does not throw an exception.)%concurrent-outputSame as ¢6; provided to avoid breaking backwards compatibility.&concurrent-outputWrapper around  r that prevents multiple processes that are running concurrently from writing to stdout/stderr at the same time.¡If the process does not output to stdout or stderr, it's run by createProcess entirely as usual. Only processes that can generate output are handled specially:xA process is allowed to write to stdout and stderr in the usual way, assuming it can successfully take the output lock.MWhen the output lock is held (ie, by another concurrent process, or because "à is being called at the same time), the process is instead run with its stdout and stderr redirected to a buffer. The buffered output will be displayed as soon as the output lock becomes free.¢Note that the the process is waited for by a background thread, so unlike createProcess, neglecting to call waitForProcess will not result in zombie processess.'concurrent-outputWrapper around   that makes sure a process is run in the foreground, with direct access to stdout and stderr. Useful when eg, running an interactive process.¢Note that the the process is waited for by a background thread, so unlike createProcess, neglecting to call waitForProcess will not result in zombie processess.3concurrent-output4Adds a value to the output buffer for later display.xNote that buffering large quantities of data this way will keep it resident in memory until it can be displayed. While "N uses temp files if the buffer gets too big, this STM function cannot do so.5concurrent-outputVA STM action that waits for some buffered output to become available, and returns it.‚The function can select a subset of output when only some is desired; the fst part is returned and the snd is left in the buffer.SThis will prevent it from being displayed in the usual way, so you'll need to use 9 to display it yourself.7concurrent-output Use with 5~ to make it only return buffered output that ends with a newline. Anything buffered without a newline is left in the buffer.9concurrent-output3Emits the content of the OutputBuffer to the Handle If you use this, you should use : to ensure you're the only thread writing to the console.;concurrent-outputRNote that using a lazy Text as an Outputable value will buffer it all in memory.:  !"#$%&'()*+,-./0123456789: !"#$%&'()* +,-./0123456789 2015 Joey Hess <id@joeyh.name> BSD-2-clauseNoneL–  !"#%&'35679 "#&'!% 356792015 Joey Hess <id@joeyh.name> BSD-2-clauseNoneNî@concurrent-outputCalls &Aconcurrent-outputCalls %@A@A2015 Joey Hess <id@joeyh.name> BSD-2-clauseNone=?«Bconcurrent-output)Values that can be displayed in a region.Dconcurrent-outputÆMany actions in this module can be run in either the IO monad or the STM monad. Using STM allows making several changes to the displayed regions atomically, with the display updated a single time.Hconcurrent-output4A handle allowing access to a region of the console.Iconcurrent-output1Controls how a region is laid out in the console.<Here's an annotated example of how the console layout works. ÿscrolling...... scrolling...... scrolling...... aaaaaa......... -- Linear bbbbbbbbbbbbbbb -- Linear bbb............ (expanded to multiple lines) ccccccccc...... -- Linear ddddeeeefffffff -- [InLine] fffffggggg..... (expanded to multiple lines) Lconcurrent-output;All the regions that are currently displayed on the screen.ÀThe list is ordered from the bottom of the screen up. Reordering it will change the order in which regions are displayed. It's also fine to remove, duplicate, or add new regions to the list.£concurrent-output§On Unix systems, this TVar is automatically updated when the terminal is resized. On Windows, it is only initialized on program start with the current terminal size.Mconcurrent-outputGets the width of the console.zOn Unix, this is automatically updated when the terminal is resized. On Windows, it is only initialized on program start.Nconcurrent-outputGet the height of the console.¤concurrent-output Check if X is running.Oconcurrent-outputhSets the value of a console region. This will cause the console to be updated to display the new value.YIt's fine for the value to be longer than the terminal is wide, or to include newlines ('\n'2). Regions expand to multiple lines as necessary.hThe value can include ANSI SGR escape sequences for changing the colors etc of all or part of a region.yOther ANSI escape sequences, especially those doing cursor movement, will mess up the layouts of regions. Caveat emptor.Pconcurrent-output9Appends a value to the current value of a console region. GappendConsoleRegion progress "." -- add another dot to progress displayQconcurrent-outputhRuns the action with a new console region, closing the region when the action finishes or on exception.Rconcurrent-outputOpens a new console region.Sconcurrent-output7Makes a new region, but does not add it to the display.Tconcurrent-outputNCloses a console region. Once closed, the region is removed from the display.Uconcurrent-output¼Closes the console region, and displays the passed value in the scrolling area above the active console regions. When Nothing is passed, displays the current value of the console region.Vconcurrent-output-Gets the current content of a console region.Wconcurrent-output&Changes how a console region displays.‰Each time the region's value changes, the STM action is provided with the current value of the region, and returns the value to display.ƒFor example, this will prevent a region from ever displaying more than 10 characters wide, and will make it display text reversed: OtuneDisplay myregion $ pure . T.take 10 tuneDisplay myregion $ pure . T.reverse7Note that repeated calls to tuneDisplay are cumulative.YNormally, the STM action should avoid retrying, as that would block all display updates.Xconcurrent-output;Handles all display for the other functions in this module.Note that this uses ¯, so it takes over all output to the console while the passed IO action is running. As well as displaying the console regions, this handles display of anything buffered by " and &.YWhen standard output is not an ANSI capable terminal, console regions are not displayed.¥concurrent-outputŸThis is a broadcast TChan, which gets a DisplayChange written to it after the display has been updated. It can be used to wait for something to be displayed.Yconcurrent-output~Runs a STM action, and waits for the display to be fully updated with any changes that action makes to the displayed regions.¦concurrent-outputHWait for any changes to the region list, eg adding or removing a region.§concurrent-outputƒSplits a Text into the lines it would display using when output onto a console with a given width, starting from the first column.ýANSI SGR sequences are handled specially, so that color, etc settings work despite the lines being split up, and the lines can be output indepedently. For example, "foooREDbar bazRESET" when split into lines becomes ["fooREDbarRESET", "RED bazRESET"]¨concurrent-output…Finds the least expensive output to make a console that was displaying the old line display the new line. Cursor starts at far left.ÙBasically, loop through and find spans where the old and new line are the same. Generate cursorForwardCode ANSI sequences to skip over those spans, unless such a sequence would be longer than the span it's skipping.·Since ANSI sequences can be present in the line, need to take them into account. Generally, each of the sequences in new has to be included, even if old contained the same sequence: told: GREENfoofoofooREDbarbarbarRESETbaz new: GREENfoofoofooREDxarbarbaxRESETbaz ret: GREEN-------->REDx------>yRESETG(The first GREEN does not effect any output text, so it can be elided.)†Also, despite old having the same second span as new, in the same location, that span has to be re-emitted because its color changed: kold: GREENfoofooREDbarbarbarbarbar new: GREENfoofoofooTANbarbarbar ret: GREEN----->fooTANbarbarbarCLEARRESTqAlso note above that the sequence has to clear the rest of the line, since the new line is shorter than the old.\concurrent-output9Makes a STM action be run to get the content of a region._Any change to the values that action reads will result in an immediate refresh of the display.]concurrent-outputENote that using a lazy Text in a region will buffer it all in memory.BCDEFGHIJKLMNOPQRSTUVWXYHIJKBCFGDEXQRSTOPUVWMNLY©      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF GHIJKLLMNOPQRSTUVWXYZ[\]^_`abcdefghijkljkmjknjkojkpjkpqrsqrtqruqrvqrwqrxqryqrzqr{qr|qr}qr~qrqr€qrqr‚qrƒqr„qr…qr†qr‡qrˆqr‰qrŠqr‹qrŒqrqrŽqrqrqr‘qr’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©Gª«¬­®¯°/concurrent-output-1.10.10-SvAEkPaSQMKkpHrtXBHKB"System.Console.Concurrent.InternalSystem.Process.ConcurrentSystem.Console.Regions Utility.DataUtility.Exception Utility.MonaddisplayConsoleRegionsSystem.Process createProcessSystem.Console.ConcurrentBufSigAtEndOutputBufferedActivityOutput InTempFiletempFile endsInNewLine StdHandleStdOutStdErr OutputBufferConcurrentProcessHandle OutputabletoOutputLockLocked OutputHandle outputLock outputBuffer errorBuffer outputThreadsglobalOutputHandle lockOutputtakeOutputLocktryTakeOutputLockwithLocktakeOutputLock'dropOutputLockwithConcurrentOutputflushConcurrentOutputoutputConcurrenterrorConcurrentoutputConcurrent'waitForProcessConcurrentcreateProcessConcurrentcreateProcessForeground fgProcess bgProcess willOutputtoHandle bufferForsetupOutputBuffer outputDrainerregisterOutputThreadunregisterOutputThread bufferWriteraddOutputBufferbufferOutputSTMbufferOutputSTM'outputBufferWaiterSTM waitAnyBufferwaitCompleteLines endsNewLineemitOutputBuffer$fOutputable[]$fOutputableText$fOutputableText0$fEqOutputBufferedActivity$fEqOutputBuffer $fEqAtEndwaitForProcessToRegionContenttoRegionContent LiftRegion liftRegion RegionContent ConsoleRegion RegionLayoutLinearInLine regionList consoleWidth consoleHeightsetConsoleRegionappendConsoleRegionwithConsoleRegionopenConsoleRegionnewConsoleRegioncloseConsoleRegionfinishConsoleRegiongetConsoleRegion tuneDisplaywaitDisplayChange$fLiftRegionIO$fLiftRegionSTM$fToRegionContentSTM$fToRegionContentText$fToRegionContentText0$fToRegionContent[]$fEqConsoleRegion$fEqRegionLayout$fEqLineUpdate$fShowLineUpdate firstJust eitherToMaybebaseGHC.Exception.Type Exception toException fromExceptiondisplayException SomeException(exceptions-0.10.2-BCw4sZZBgaL5zRGtRt3vrKControl.Monad.CatchbracketOnErrorfinallybracket_bracketonError onExceptioncatchestryJusttry handleJusthandleIf handleAll handleIOErrorhandle catchJustcatchIf catchIOErrorcatchAlluninterruptibleMask_mask_ MonadThrowthrowM MonadCatchcatch MonadMaskmaskuninterruptibleMaskgeneralBracketExitCaseExitCaseSuccessExitCaseException ExitCaseAbort catchBoolIO catchMaybeIOcatchDefaultIO catchMsgIOcatchIOtryIO bracketIO catchNonAsync tryNonAsync tryWhenExistscatchHardwareFaultfirstMgetManyMallM untilTrueifM<||><&&>observeafternoopprocess-1.6.3.0 consoleSizeregionDisplayEnableddisplayUpdateNotifierregionListWaiter calcLinescalcLineUpdate