h$t؅      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                 None  <=@AB  BA=@<None Safe-Inferred?$ !"#$%&'()*+,-./012345678:9$:9 $#-8(+*%)0'&"!654321/.7, None    !"#$%&'()*+,-./012345678:9<=@ABNone ; C core-programInformation about the version number of this piece of software and other related metadata related to the project it was built from. This is supplied to your program when you call  ?. This value is used if the user requests it by specifying the  --version option on the command-line.>Simply providing an overloaded string literal such as version "1.0" will give you a C with that value: ,{-# LANGUAGE OverloadedStrings #-} main ::  () main = do context <-   "1.0"  ( ... *For more complex usage you can populate a C object using the G8 splice below. You can then call various accessors like F to access individual fields.G core-programThis is a splice which includes key built-time metadata, including the number from the version field from your project's .cabal, file (as written by hand or generated from  package.yaml). This uses the evil TemplateHaskell extension.While we generally discourage the use of Template Haskell by beginners (there are more important things to learn first) it is a way to execute code at compile time and that is what what we need in order to have the version number extracted from the .cabal file rather than requiring the user to specify (and synchronize) it in multiple places.To use this, enable the Template Haskell language extension in your Main.hs file. Then use the special $( ... )> "insert splice here" syntax that extension provides to get a C5 object with the desired metadata about your project: -{-# LANGUAGE TemplateHaskell #-} version :: C version = $(G ) main ::  () main = do context <-   version  ( ... (Using Template Haskell slows down compilation of this file, but the upside of this technique is that it avoids linking the Haskell build machinery into your executable, saving you about 10 MB in the size of the resultant binary)H core-program,Access the source location of the call site. This is insanely cool, and does not require you to turn on the CPP or TemplateHaskell language extensions! Nevertheless we named it with underscores to compliment the symbols that CPP gives you; the double underscore convention holds across many languages and stands out as a very meta thing, even if it is a proper Haskell value. We have a  instance that simply prints the filename and line number. Doing: main ::  () main =  $ do  H will give you: tests/Snipppet.hs:32 This isn't the full stack trace, just information about the current line. If you want more comprehensive stack trace you need to add $ constraints everywhere, and then...CEFDGHCFDEGHNone 5=sM core-programDifferent ways parsing a simple or complex command-line can fail.N core-programSomething was wrong with the way the user specified [usually a short] option.O core-programUser specified an option that doesn't match any in the supplied configuration.P core-program1Arguments are mandatory, and this one is missing.Q core-program+Arguments are present we weren't expecting.R core-programIn a complex configuration, user specified a command that doesn't match any in the configuration.S core-program:In a complex configuration, user didn't specify a command.T core-programIn a complex configuration, usage information was requested with --help., either globally or for the supplied command.U core-program.Display of the program version requested with  --version.V core-programResult of having processed the command-line and the environment. You get at the parsed command-line options and arguments by calling  within a  block.Each option and mandatory argument parsed from the command-line is either standalone (in the case of switches and flags, such as --quiet) or has an associated value. In the case of options the key is the name of the option, and for arguments it is the implicit name specified when setting up the program. For example, in: 2$ ./submit --username=gbmh GraceHopper_Resume.pdf the option has parameter name "username " and value "gmbh"; the argument has parameter name "filename" (assuming that is what was declared in the a entry) and a value being the Admiral's CV. This would be returned as: V  [("username","gbmh"), ("filename","GraceHopper_Resume.pdf")] [] &The case of a complex command such as git or stack, you get the specific mode chosen by the user returned in the first position: $ missiles launch --all would be parsed as: V ( "launch") [("all",Empty)] [] \ core-programIndividual parameters read in off the command-line can either have a value (in the case of arguments and options taking a value) or be empty (in the case of options that are just flags)._ core-programDeclaration of an optional switch or mandatory argument expected by a program.` takes a long name for the option, a short single character abbreviation if offered for convenience, whether or not the option takes a value (and what label to show in help output) and a description for use when displaying usage via --help.a indicates a mandatory argument and takes the long name used to identify the parsed value from the command-line, and likewise a description for --help output.1By convention option and argument names are both  lower case. If the identifier is two or more words they are joined with a hyphen. Examples:  [ ` "quiet" ( 'q') ^* "Keep the noise to a minimum." , ` "dry-run"  (] "TIME") "Run a simulation of what would happen at the specified time." , a< "username" "The user to delete from the system." ] By convention a  description is one or more complete sentences each of which ends with a full stop. For options that take values, use  upper case5 when specifying the label to be used in help output.b is special; it indicates that you are expecting a variable number of additional, non-mandatory arguments. This is used for programs which take a list of files to process, for example. It'll show up in the help with the description you supply alongside.  [ ... , b "The files you wish to delete permanently." , ... ] c declares an environment variable that, if present, will be read by the program and stored in its runtime context. By convention these are  upper case. If the identifier is two or more words they are joined with an underscore:  [ ... , c "CRAZY_MODE" "Specify how many crazies to activate." , ... ] d core-programDescription of the command-line structure of a program which has "commands" (sometimes referred to as "subcommands") representing different modes of operation. This is familiar from tools like git and docker.g core-programThe setup for parsing the command-line arguments of your program. You build a Config with simple or complex, and pass it to  .h core-program:The name of an option, command, or agument (omitting the "--" prefix in the case of options). This identifier will be used to generate usage text in response to --help and by you later when retreiving the values of the supplied parameters after the program has initialized.Turn on OverloadedStrings+ when specifying configurations, obviously.j core-programThe description of an option, command, or environment variable (for use when rendering usage information in response to --help on the command-line).k core-program-Single letter "short" options (omitting the "-" prefix, obviously).l  core-programA completely empty configuration, without the default debugging and logging options. Your program won't process any command-line options or arguments, which would be weird in most cases. Prefer simple.m  core-programDeclare a simple (as in normal) configuration for a program with any number of optional parameters and mandatory arguments. For example: main ::  () main = do context <-   "1.0"  (m [ ` "host" ( 'h') ^ [| Specify an alternate host to connect to when performing the frobnication. The default is "localhost". |] , ` "port" ( 'p') ^ [| Specify an alternate port to connect to when frobnicating. |] , ` "dry-run"  (] "TIME") [| Perform a trial run at the specified time but don't actually do anything. |] , ` "quiet" ( 'q') ^ [<| Supress normal output. |] , a "filename" [| The file you want to frobnicate. |] ])  context program 3which, if you build that into an executable called snippet and invoke it with --help, would result in: $ ./snippet --help Usage: snippet [OPTIONS]  filename Available options: -h, --host Specify an alternate host to connect to when performing the frobnication. The default is "localhost". -p, --port Specify an alternate port to connect to when frobnicating. --dry-run= TIME Perform a trial run at the specified time but don't actually do anything. -q, --quiet Supress normal output. -v, --verbose Turn on informational messages. The logging stream will go to standard output on your terminal. --debug Turn on debug level logging. Implies --verbose. Required arguments:  filename( The file you want to frobnicate. $ | For information on how to use the multi-line string literals shown here, see  in Core.Text.Utilities.n  core-programDeclare a complex configuration (implying a larger tool with various "[sub]commands" or "modes"} for a program. You can specify global options applicable to all commands, a list of commands, and environment variables that will be honoured by the program. Each command can have a list of local options and arguments as needed. For example:  program :: * MusicAppStatus () program = ... main ::  () main = do context <-   ( version)  (complex [ e [ ` "station-name"  (] "NAME") [| Specify an alternate radio station to connect to when performing actions. The default is "BBC Radio 1". |] , c "PLAYER_FORCE_HEADPHONES" [| If set to 1, override the audio subsystem to force output to go to the user's headphone jack. |] ] , f( "play" "Play the music." [ ` "repeat"  ^ [| Request that they play the same song over and over and over again, simulating the effect of listening to a Top 40 radio station. |] ] , f "rate" "Vote on whether you like the song or not." [ ` "academic"  ^ [| The rating you wish to apply, from A+ to F. This is the default, so there is no reason whatsoever to specify this. But some people are obsessive, compulsive, and have time on their hands. |] , ` "numeric"  ^ [| Specify a score as a number from 0 to 100 instead of an academic style letter grade. Note that negative values are not valid scores, despite how vicerally satisfying that would be for music produced in the 1970s. |] , ` "unicode" ( 'c') ^ [| Instead of a score, indicate your rating with a single character. This allows you to use emoji, so that you can rate a piece '', as so many songs deserve. |] , a "score" [| The rating you wish to apply. |] ] ])  context program is a program with one global option (in addition to the default ones) [and an environment variable] and two commands: play, with one option; and rate, with two options and a required argument. It also is set up to carry its top-level application state around in a type called MusicAppStatus (implementing  and so initialized here with . This is a good pattern to use given we are so early in the program's lifetime). do evilPlan True -> do 0 "No Mr Bond, I expect you to die!"    core-program The type of a top-level program.You would use this by writing: module Main where import  Core.Program main ::  () main =  program and defining a program that is the top level of your application:  program ::   () Such actions are combinable; you can sequence them (using bind in do-notation) or run them in parallel, but basically you should need one such object at the top of your application.Type variablesA 9 has a user-supplied application state and a return type.The first type variable, , is your application's state. This is an object that will be threaded through the computation and made available to your code in the  monad. While this is a common requirement of the outer code layer in large programs, it is often not necessary in small programs or when starting new projects. You can mark that there is no top-level application state required using 1 and easily change it later if your needs evolve.The return type, , is usually unit as this effectively being called directly from main and Haskell programs have type  (). That is, they don't return anything; I/O having already happened as side effects.Programs in separate modulesOne of the quirks of Haskell is that it is difficult to refer to code in the Main module when you've got a number of programs kicking around in a project each with a main function. One way of dealing with this is to put your top-level  actions in a separate modules so you can refer to them from test suites and example snippets.5Interoperating with the rest of the Haskell ecosystemThe  monad is a wrapper over ; at any point when you need to move to another package's entry point, just use . It's re-exported by Core.System.Base for your convenience. Later, you might be interested in unlifting back to Program; see Core.Program.Unlift. core-programThe verbosity level of the output logging subsystem. You can override the level specified on the command-line by calling  from within the  monad.  core-program core-programA  with no user-supplied state to be threaded throughout the computation.The Core.Program.Execute framework makes your top-level application state available at the outer level of your process. While this is a feature that most substantial programs rely on, it is not needed for many simple tasks or when first starting out what will become a larger project.This is effectively the unit type, but this alias is here to clearly signal a user-data type is not a part of the program semantics. core-programInternal context for a running program. You access this via actions in the  monad. The principal item here is the user-supplied top-level application data of type  which can be retrieved with  and updated with . core-programImplementation of a forwarder for structured logging of the telemetry channel. core-programUnique identifier for a trace. If your program is the top of an service stack then you can use  to generate a new idenfifier for this request or iteration. More commonly, however, you will inherit the trace identifier from the application or service which invokes this program or request handler, and you can specify it by using . core-program8Unique identifier for a span. This will be generated by  but for the case where you are continuing an inherited trace and passed the identifier of the parent span you can specify it using this constructor. core-programCarrier for spans and events while their data is being accumulated, and later sent down the telemetry channel. There is one of these in the Program monad's Context. core-program8Map a function over the underlying user-data inside the , changing it from type1 to 2. core-programGet the internal Context of the running Program. There is ordinarily no reason to use this; to access your top-level application data  within the Context use . core-program&Run a subprogram from within a lifted IO block. core-programInitialize the programs's execution context. This takes care of various administrative actions, including setting up output channels, parsing command-line arguments (according to the supplied configuration), and putting in place various semaphores for internal program communication. See Core.Program.Arguments for details.This is also where you specify the initial {blank, empty, default) value for the top-level user-defined application state, if you have one. Specify " if you aren't using this feature. core-programProcess the command line options and arguments. If an invalid option is encountered or a [mandatory] argument is missing, then the program will terminate here.< NoneT core-programInstall signal handlers for SIGINT and SIGTERM that set the exit semaphore so that a Program's [minimal] cleanup can occur.None ?dN  core-programWrite the supplied text to stdout."This is for normal program output.   "Beginning now"  core-programCall : on the supplied argument and write the resultant text to stdout.(This is the equivalent of  from base) core-programPretty print the supplied argument and write the resultant text to stdout4. This will pass the detected terminal width to the  function, resulting in appopriate line wrapping when rendering your value.  core-programNote a significant event, state transition, status; also used as a heading for subsequent debugging messages. This:   "Starting..." will result in 13:05:55Z (00.112) Starting... appearing on stdout. The output string is current time in UTC, and time elapsed since startup shown to the nearest millisecond (our timestamps are to nanosecond precision, but you don't need that kind of resolution in in ordinary debugging).  core-programEmit a diagnostic message warning of an off-nominal condition. They are best used for unexpected conditions or places where defaults are being applied (potentially detrimentally). ) warn "You left the lights on again" Warnings are worthy of note if you are looking into the behaviour of the system, and usually@but not always@indicate a problem. That problem may not need to be rectified, certainly not immediately.(DO NOT PAGE OPERATIONS STAFF ON WARNINGS.For example, see Core.Program.Execute's ! function, a wrapper action which allows you to restart a loop when combined with "#. trap_ swollows exceptions but does not do  so silently, instead using  to log a warning as an information message. You don't need to do anything about the warning right away; after all the point is to allow your program to continue. If it is happening unexpectly or frequently, however, the issue bears investigation and the warning severity message will give you a starting point for diagnosis.  core-programReport an anomoly or condition critical to the ongoing health of the program.  critical "Unable to do hostname lookups" -- Yup, it was DNS. It's always DNS. The term "critical" generally means the program is now in an unexpected or invalid state, that further processing is incorrect, and that the program is likely about to crash. The key is to get the message out to the informational channel as quickly as possible before it does.;For example, an uncaught exception bubbling to the top the  monad will be logged as a  severity message and forceibly output to the console before the program exits. Your program is crashing, but at least you have a chance to find about why before it does.You're not going to page your operations staff on these either, but if they're happening in a production service and it's getting restarted a lot as a result you're probably going to be hearing about it. core-programOutput a debugging message formed from a label and a value. This is like event above but for the (rather common) case of needing to inspect or record the value of a variable when debugging code. This:  setProgramName "hello" name <- getProgramName  "programName" name will result in &13:05:58Z (03.141) programName = hello appearing on stdout, assuming these actions executed about three seconds after program start. core-programConvenience for the common case of needing to inspect the value of a general variable which has a  instance core-programConvenience for the common case of needing to inspect the value of a general variable for which there is a  instance and so can pretty print the supplied argument to the log. This will pass the detected terminal width to the  function, resulting in appopriate line wrapping when rendering your value (if logging to something other than console the default width of 80 will be applied). None   core-program$A thread for concurrent computation. (this wraps async's ) core-program5Fork a thread. The child thread will run in the same Context as the calling Program=, including sharing the user-defined application state value.Threads that are launched off as children are on their own! If the code in the child thread throws an exception that is not caught within that thread, the exception will kill the thread. Threads dying without telling anyone is a bit of an anti-pattern, so this library logs a warning-level log message if this happens.If you additionally want the exception to propagate back to the parent thread (say, for example, you want your whole program to die if any of its worker threads fail), then call  after forking. If you want the other direction, that is, if you want the forked thread to be cancelled when its parent is cancelled, then you need to be waiting on it using . (this wraps async's $% which in turn wraps base's &') core-programWait for the completion of a thread, returning the result. This is a blocking operation.If the thread you are waiting on throws an exception it will be rethrown by .If the current thread making this call is cancelled (as a result of being on the losing side of  or , for example, or due to an explicit call to ), then the thread you are waiting on will be cancelled. This is necessary to ensure that child threads are not leaked if you nest s. (this wraps async's $(6, taking care to ensure the behaviour described above) core-programWait for the completion of a thread, discarding its result. This is particularly useful at the end of a do-block if you're waiting on a worker thread to finish but don't need its return value, if any; otherwise you have to explicily deal with the unused return value:  _ <-  t1  () which is a bit tedious. Instead, you can just use this convenience function:   t1 The trailing underscore in the name of this function follows the same convetion as found in  Control.Monad , which has ") which does the same as "*. but which likewise discards the return value. core-programWait for a thread to complete, returning the result if the computation was successful or the exception if one was thrown by the child thread.*This basically is convenience for calling  and putting @& around it, but as with all the other wait* functions this ensures that if the thread waiting is cancelled the cancellation is propagated to the thread being watched as well. (this wraps async's $+) core-programWait for many threads to complete. This function is intended for the scenario where you fire off a number of worker threads with  but rather than leaving them to run independantly, you need to wait for them all to complete.The results of the threads that complete successfully will be returned as  values. Should any of the threads being waited upon throw an exception, those exceptions will be returned as  values.If you don't need to analyse the failures individually, then you can just collect the successes using  Data.Either's ,-:  responses <-  . "Aggregating results..." combineResults (,- responses) Likewise, if you do< want to do something with all the failures, you might find ,. useful:   ( .  . ) (,. responses) If the thread calling  is cancelled, then all the threads being waited upon will also be cancelled. This often occurs within a timeout or similar control measure implemented using . Should the thread that spawned all the workers and is waiting for their results be told to cancel because it lost the "race", the child threads need to be told in turn to cancel so as to avoid those threads being leaked and continuing to run as zombies. This function takes care of that.(this extends async's $+ to work across a list of Threads, taking care to ensure the cancellation behaviour described throughout this module) core-programOrdinarily if an exception is thrown in a forked thread that exception is silently swollowed. If you instead need the exception to propegate back to the parent thread, you can "link" the two together using this function. (this wraps async's $/) core-programCancel a thread. (this wraps async's 0. The underlying mechanism used is to throw the  to the other thread. That exception is asynchronous, so will not be trapped by a @ block and will indeed cause the thread receiving the exception to come to an end) core-programFork two threads and wait for both to finish. The return value is the pair of each action's return types.This is the same as calling  and  twice, except that if either sub-program fails with an exception the other program which is still running will be cancelled and the original exception is then re-thrown.  (a,b) <- > one two -- continue, doing something with both results. For a variant that ingores the return values and just waits for both see  below. (this wraps async's $0) core-program-Fork two threads and wait for both to finish.This is the same as calling  and  twice, except that if either sub-program fails with an exception the other program which is still running will be cancelled and the original exception is then re-thrown. (this wraps async's $1) core-programFork two threads and race them against each other. This blocks until one or the other of the threads finishes. The return value will be   if the first program (one) completes first, and   if it is the second program (two) which finishes first. The sub program which is still running will be cancelled with an exception.  result <-  one two case result of Left a -> do -- one finished first Right b -> do -- two finished first For a variant that ingores the return value and just races the threads see  below. (this wraps async's $2) core-programFork two threads and race them against each other. When one action completes the other will be cancelled with an exception. This is useful for enforcing timeouts:   ( sleepThread 300) (do -- We expect this to complete within 5 minutes. performAction )  (this wraps async's $3)  None d  core-programTrap any exceptions coming out of the given Program action, and discard them. The one and only time you want this is inside an endless loop:  forever $ do trap_ ( bracket obtainResource releaseResource useResource ) This function really will swollow expcetions, which means that you'd better have handled any synchronous checked errors already with a @% and/or have released resources with = or < as shown above.An info level message will be sent to the log channel indicating that an uncaught exception was trapped along with a debug level message showing the exception text, if any. core-program=Embelish a program with useful behaviours. See module header Core.Program.Execute< for a detailed description. Internally this function calls / with an appropriate default when initializing. core-programEmbelish a program with useful behaviours, supplying a configuration for command-line options & argument parsing and an initial value for the top-level application state, if appropriate. core-programSafely exit the program with the supplied exit code. Current output and debug queues will be flushed, and then the process will terminate. core-programChange the verbosity level of the program's logging output. This changes whether  and the 9 family of functions emit to the logging stream; they do not affect 2ing to the terminal on the standard output stream. core-programOverride the program name used for logging, etc. At least, that was the idea. Nothing makes use of this at the moment. :/ core-programGet the program name as invoked from the command-line (or as overridden by ). core-program5Retreive the current terminal's width, in characters.'If you are outputting an object with a 45: instance then you may not need this; you can instead use wrteR which is aware of the width of your terminal and will reflow (in as much as the underlying type's Render instance lets it). core-programGet the user supplied application state as originally supplied to . and modified subsequntly by replacement with . ! state <- getApplicationState  core-program5Update the user supplied top-level application state.  let state' = state { answer = 42 } setApplicationState state'  core-programWrite the supplied Bytes to the given Handle. Note that in contrast to $ we don't output a trailing newline.  output h b Do not use this to output to stdout0 as that would bypass the mechanism used by the *, event, and * functions to sequence output correctly. If you wish to write to the terminal use:   ( b) (which is not unsafe, but will lead to unexpected results if the binary blob you pass in is other than UTF-8 text). core-program,Read the (entire) contents of the specified Handle. core-programExecute an external child process and wait for its output and result. The command is specified first and and subsequent arguments as elements of the list. This helper then logs the command being executed to the debug output, which can be useful when you're trying to find out what exactly what program is being invoked.Keep in mind that this isn't invoking a shell; arguments and their values have to be enumerated separately:   ["/usr/bin/ssh", "-l", "admin", "203.0.113.42", "\'remote command here\'"] having to write out the individual options and arguments and deal with escaping is a bit of an annoyance but that's  execvp(3) for you.The return tuple is the exit code from the child process, its entire stdout and its entire stderr, if any. Note that this is not a streaming interface, so if you're doing something that returns huge amounts of output you'll want to use something like  io-streams instead. (this wraps  typed-process's ) core-programReset the start time (used to calculate durations shown in event- and debug-level logging) held in the Context to zero. This is useful if you want to see the elapsed time taken by a specific worker rather than seeing log entries relative to the program start time which is the default.If you want to start time held on your main program thread to maintain a count of the total elapsed program time, then fork a new thread for your worker and reset the timer there.   forkThread $ do  ... then times output in the log messages will be relative to that call to , not the program start. core-programPause the current thread for the given number of seconds. For example, to delay a second and a half, do:   1.5  (this wraps base's ) core-programRetrieve the values of parameters parsed from options and arguments supplied by the user on the command-line..The command-line parameters are returned in a , mapping from from the option or argument name to the supplied value. You can query this map directly: program = do params <-  let result =  "silence" (paramterValuesFrom params) case result of  ->  () # quiet = case quiet of ] _ -> B NotQuiteRight -- complain that flag doesn't take value ^ -> 4 "You should be quiet now" -- much better ... which is pattern matching to answer "was this option specified by the user?" or "what was the value of this [mandatory] argument?", and then "if so, did the parameter have a value?"=This is available should you need to differentiate between a Value and an Empty \6, but for many cases as a convenience you can use the , , and  functions below. core-programArguments are mandatory, so by the time your program is running a value has already been identified. This retreives the value for that parameter. program = do file <-  "filename" ...  core-programIn other applications, you want to gather up the remaining arguments on the command-line. You need to have specified b in the configuration. program = do files <-  ...  core-programLook to see if the user supplied a valued option and if so, what its value was. Use of the  LambdaCase; extension might make accessing the parameter a bit eaiser: program = do count <-  "count"  \case  ->  0  value ->  value ...  core-programReturns True if the option is present, and False if it is not. program = do overwrite <-  "overwrite" ...  core-programLook to see if the user supplied the named environment variable and if so, return what its value was. core-programRetreive the sub-command mode selected by the user. This assumes your program was set up to take sub-commands via n.  mode <- queryCommandName  core-programIllegal internal state resulting from what should be unreachable code or otherwise a programmer error.+;>?@B+@;B?> None $ core-program>This gives you a function that you can use within your lifted  actions to return to the  monad.The type signature of this function is a bit involved, but the example below shows that the lambda gives you a function+ as its argument (we recommend you name it  runProgram for consistency) which gives you a way to run a subprogram, be that a single action like writing to terminal or logging, or a larger action in a do-notation block: main :: IO () main =  $ do  $ \runProgram -> do -- in IO monad, lifted -- (just as if you had used liftIO) ... runProgram $ do -- now unlifted, back to Program monad ... Think of this as  with an escape hatch.This function is named : because it is a convenience around the following pattern:  context <- % liftIO $ do ... > context $ do -- now in Program monad ...  None  core-program+Watch for changes to a given list of files.Before continuing we insert a 100ms pause to allow whatever the editor was to finish its write and switcheroo sequence.None,;>?@BCEFDGHMUTSRQPNOVW[ZXY\]^_cb`adefghijklmnopqrstu<67869:6;<6;=6>?67@67A6BC6DE6DF6DG6DH6IJ6IK6IL6IM6IN6OP6DQRSTRSURSVRSVWXYWZ[WZ\WZ]WZ^WZ_WZ`WZaWZbWZcWXdWXeWXfWXgWXhWXiWXjWXkWXlWXmWXnWXoWXpWXqWXrWXsWXtWXuWXvWXwWXxWXyWXzWX{WX|WX}~~~~~~~~              !  566666 66>6$66,6,6)$$666+core-program-0.4.5.0-1y2rZhk44lx69lIRc4FtBbCore.System.BaseCore.System.ExternalCore.System.PrettyCore.Program.ExecuteCore.Program.MetadataCore.Program.Arguments Core.ProgramCore.Program.LoggingCore.Program.UnliftCore.Program.ThreadsCore.Program.Notify Core.System configureNonesimpleexecutewriteRgetCommandLineProgramCore.Program.Context executeWith fromPackagewritethrowsetVerbosityLevelgetApplicationStatesetApplicationStateCore.Telemetry.Observability beginTrace usingTrace encloseSpanCore.Program.Signaltrap_ Control.MonadforeverControl.Concurrent.AsyncasyncControl.ConcurrentforkIOwaitmapM_mapM waitCatch Data.Eitherrightsleftslink concurrently concurrently_racerace_Core.Text.UntilitiesRenderbaseGHC.IO.Handle.FDstdoutGHC.IO.Handle.TypesHandleControl.Monad.IO.ClassliftIOMonadIO System.IOwithFilestderrstdin GHC.IO.HandlehFlushGHC.Exception.TypedisplayException fromException toException Exception GHC.IO.IOMode ReadWriteMode AppendMode WriteModeReadModeIOMode GHC.IO.UnsafeunsafePerformIO SomeException,chronologique-0.3.1.3-G4gOCSSwmap1o5N5SxjQEHChrono.TimeStampgetCurrentTimeNanoseconds unTimeStamp TimeStamp)prettyprinter-1.7.1-BauxLiNvN3EiJKyXe93SMPrettyprinter.InternalDocPrettyprinter.Symbols.Asciicommarbracelbracerbracketlbracketrparenlparendquotesquote unAnnotateannotateenclose punctuatefillCatvcathcatsepfillSepvsephsep concatWith<+>indenthangflatAltgrouphardline softline'softlineline'linenestemptyDocprettyPretty.safe-exceptions-0.1.7.2-JneZS63Oo6PChwawONXlrZControl.Exception.Safe catchesAsyncfinallybrackettryAsynctrycatch impureThrowVersionprojectNameFromprojectSynopsisFromversionNumberFrom __LOCATION__$fRenderSrcLoc$fIsStringVersion $fShowVersion$fLiftLiftedRepVersionInvalidCommandLine InvalidOption UnknownOptionMissingArgumentUnexpectedArgumentsUnknownCommandNoCommandFound HelpRequestVersionRequest ParameterscommandNameFromparameterValuesFromremainingArgumentsFromenvironmentValuesFromParameterValueValueEmptyOptionsOptionArgument RemainingVariableCommandsGlobalCommandConfigLongName Description ShortName blankConfig simpleConfig complexConfig appendOptionemptyParametersbaselineOptionsparseCommandLineextractValidEnvironments buildUsage buildVersion$fTextualLongName$fPrettyLongName $fKeyLongName$fIsStringParameterValue$fExceptionInvalidCommandLine$fShowInvalidCommandLine$fEqInvalidCommandLine$fShowParameters$fEqParameters$fShowParameterValue$fEqParameterValue$fShowLongName$fIsStringLongName $fEqLongName$fHashableLongName $fOrdLongNameBoom VerbosityOutputVerboseDebugContext$sel:programNameFrom:Context$sel:terminalWidthFrom:Context$sel:versionFrom:Context$sel:initialConfigFrom:Context!$sel:initialExportersFrom:Context$sel:commandLineFrom:Context$sel:exitSemaphoreFrom:Context$sel:startTimeFrom:Context$sel:verbosityLevelFrom:Context$sel:outputChannelFrom:Context!$sel:telemetryChannelFrom:Context#$sel:telemetryForwarderFrom:Context$sel:currentDatumFrom:Context $sel:applicationDataFrom:Context Forwarder#$sel:telemetryHandlerFrom:ForwarderExporter$sel:codenameFrom:Exporter$sel:setupConfigFrom:Exporter$sel:setupActionFrom:ExporterTraceSpanDatum$sel:spanIdentifierFrom:Datum$sel:spanNameFrom:Datum$sel:serviceNameFrom:Datum$sel:spanTimeFrom:Datum$sel:traceIdentifierFrom:Datum$sel:parentIdentifierFrom:Datum$sel:durationFrom:Datum$sel:attachedMetadataFrom:Datum emptyDatumunSpanunTrace fmapContextisNone unProgram getContext subProgramhandleCommandLinehandleVerbosityLevelhandleTelemetryChoiceSeverity SeverityNoneSeverityCritical SeverityWarn SeverityInfo SeverityDebugSeverityInternal putMessageformatLogMessagewriteSinfowarncriticalisEventisDebugdebugdebugSdebugRinternalThreadunThread forkThread waitThread waitThread_ waitThread' waitThreads' linkThread cancelThreadconcurrentThreadsconcurrentThreads_ raceThreads raceThreads_ loopForever terminategetVerbosityLevelsetProgramNamegetProgramNamegetConsoleWidth outputEntire inputEntire execProcess resetTimer sleepThread queryArgumentlookupArgumentqueryRemainingqueryOptionValuelookupOptionValuequeryOptionFlaglookupOptionFlagqueryEnvironmentValuelookupEnvironmentValuequeryCommandNameinvalid$fExceptionProcessProblem$fShowProcessProblem withContext waitForChangeghc-prim GHC.TypesIO(core-text-0.3.5.0-BVItQ5112G88vQkIpMfhyTCore.Text.UtilitiesGHC.Stack.Types HasCallStack GHC.MaybeNothingJustquoteGHC.BasememptyMonoid(core-data-0.3.1.1-J5ytxv3jGQk2TmfQdUNmRHCore.Data.Structures containsKeysetupSignalHandlersGHC.ShowshowprintrenderShow"async-2.2.4-4JG4UQZhHlOKvfwb7nDkNcAsyncreturnRightLeft Data.FoldableCore.Text.RopeintoRopecancelAsyncCancelled,typed-process-0.2.8.0-969N5lhfL3x4doBYBsVJT9System.Process.Typed readProcess GHC.Conc.IO threadDelayMaplookupKeyValue>>=pure