h&73X      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                                                       Safe-Inferred /;"exitcodeAn exit code status where failing with a value `0` cannot be represented.4Transformer for either a (non-zero exit code value () with error :: e) or a (value :: a).#exitcode6Construct a succeeding exit code with the given value.1exitsuccess "abc" :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "abc"))$exitcode+Construct a succeeding exit code with unit.#exitsuccess0 :: ExitcodeT0 IdentityExitcodeT (Identity (Right ()))%exitcode4Construct a failing exit code with the given status.If the given status is `0` then the exit code will succeed with unit.0exitfailure 'x' 99 :: ExitcodeT Identity Char ()$ExitcodeT (Identity (Left ('x',99)))&exitcode4Construct a failing exit code with the given status.If the given status is `0` then the exit code will succeed with unit.'exitcodeConstruct an exit code with the given status. Associate a value of type e2 with a failing exit code and a value of the type a with a success exit code.If the given status is `0` then the exit code will succeed with unit. >>> exitcodeValue x 99 "abc" :: ExitcodeT Identity Char String ExitcodeT (Identity (Left (x,99))) >>> exitcodeValue x 0 "abc" :: ExitcodeT Identity Char String ExitcodeT (Identity (Right "abc"))(exitcode-Construct an exit code with the given status.If the given status is `0` then the exit code will succeed with unit.(exitcodeValue0 99 :: ExitcodeT0 Identity#ExitcodeT (Identity (Left ((),99)))'exitcodeValue0 0 :: ExitcodeT0 IdentityExitcodeT (Identity (Right ())))exitcodeFrom base exitcode.#fromExitCode (Identity ExitSuccess)ExitcodeT (Identity (Right ()))(fromExitCode (Identity (ExitFailure 99))#ExitcodeT (Identity (Left ((),99)))*exitcodeFrom base exitcode.fromExitCode' ExitSuccessExitcodeT (Identity (Right ()))fromExitCode' (ExitFailure 99)#ExitcodeT (Identity (Left ((),99)))fromExitCode' (ExitFailure 0)ExitcodeT (Identity (Right ()))+exitcodeIsomorphism from base exitcode to underlying `Maybe (Either Int ())` where  is non-zero.)view exitCode (Identity (ExitFailure 99))3ExitcodeT (MaybeT (Identity (Just (Left ((),99)))))$view exitCode (Identity ExitSuccess)/ExitcodeT (MaybeT (Identity (Just (Right ()))))Control.Lens.review exitCode (exitfailure () 99) :: Identity ExitCodeIdentity (ExitFailure 99)>Control.Lens.review exitCode exitsuccess0 :: Identity ExitCodeIdentity ExitSuccess,exitcode7Extract either the non-zero value or the success value.;runExitcodeT exitsuccess0 :: Identity (Either ((), Int) ())Identity (Right ())runExitcodeT (exitfailure () 99) :: Identity (Either ((), Int) ())Identity (Left ((),99))-exitcode%Extract either the non-zero value or .2runExitcodeT0 exitsuccess0 :: Identity (Maybe Int)Identity Nothing9runExitcodeT0 (exitfailure () 99) :: Identity (Maybe Int)Identity (Just 99).exitcode7Extract either the non-zero value or the success value./runExitcode exitsuccess0 :: Either ((), Int) ()Right ()6runExitcode (exitfailure () 99) :: Either ((), Int) () Left ((),99)/exitcode%Extract either the non-zero value or .&runExitcode0 exitsuccess0 :: Maybe IntNothing-runExitcode0 (exitfailure () 99) :: Maybe IntJust 990exitcodeIsomorphism to integer.'view _ExitcodeInt exitsuccess0 :: [Int][0],view _ExitcodeInt (exitfailure0 99) :: [Int][99]review _ExitcodeInt [0]ExitcodeT [Right ()]review _ExitcodeInt [99]ExitcodeT [Left ((),99)]1exitcodeSetter to integer.<> preview _ExitcodeInt' (exitsuccess0 :: ExitcodeT [] () ())Just 0=preview _ExitcodeInt' (exitfailure0 99 :: ExitcodeT [] () ())Just 99 (e + 1, n + 1)) (exitsuccess0 :: ExitcodeT Identity Int ())ExitcodeT (Identity (Right ()))over _ExitFailure (\(e, n) -> (reverse e, n + 1)) (exitfailure "abc" 1 :: ExitcodeT Identity String ())%ExitcodeT (Identity (Left ("cba",2)))over _ExitFailure (\(e, n) -> (reverse e, n - 1)) (exitfailure "abc" 1 :: ExitcodeT Identity String ())ExitcodeT (Identity (Right ()))3exitcode.A traversal over the associated failing value.over _ExitFailureError reverse exitsuccess0 :: ExitcodeT Identity [Int] ()ExitcodeT (Identity (Right ()))over _ExitFailureError reverse (exitfailure "abc" 99) :: ExitcodeT Identity String ()&ExitcodeT (Identity (Left ("cba",99)))over _ExitFailureError reverse (exitfailure "abc" 0) :: ExitcodeT Identity String ()ExitcodeT (Identity (Right ()))preview _ExitFailureError (exitfailure () 99 :: ExitcodeT0 Identity)Just ()?preview _ExitFailureError (exitsuccess0 :: ExitcodeT0 Identity)Nothing4exitcodeA prism to exit success.-over _ExitSuccess (\x -> x) (exitfailure0 99)#ExitcodeT (Identity (Left ((),99))),over _ExitSuccess (\x -> x) (exitfailure0 0)ExitcodeT (Identity (Right ())),over _ExitSuccess (\x -> x) (exitfailure0 0)ExitcodeT (Identity (Right ()))(preview _ExitSuccess (exitfailure () 99)Nothing!preview _ExitSuccess exitsuccess0Just ()Control.Lens.review _ExitSuccess "abc" :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "abc")):exitcode/Construct an exitcode with an associated value.0exitcode1 99 "abc" :: ExitcodeT1 Identity String&ExitcodeT (Identity (Left ("abc",99)))/exitcode1 0 "abc" :: ExitcodeT1 Identity String"ExitcodeT (Identity (Right "abc"));exitcode7Extract either the non-zero value or the success value.runExitcodeT1 exitsuccess0Right ()runExitcodeT1 (exitfailure () 99) :: Identity (Either ((), Int) ())Identity (Left ((),99))runExitcodeT1 (exitcode1 0 "abc") :: Identity (Either (String, Int) String)Identity (Right "abc")runExitcodeT1 (exitcode1 99 "abc") :: Identity (Either (String, Int) String)Identity (Left ("abc",99))<exitcode7Extract either the non-zero value or the success value.runExitcode1 exitsuccess0Right () runExitcode1 (exitfailure () 99) Left ((),99) runExitcode1 (exitcode1 0 "abc") Right "abc"!runExitcode1 (exitcode1 99 "abc")Left ("abc",99)=exitcode0A lens to the value associated with an exitcode.#view _Exitcode1 (exitcode1 0 "abc")"abc"$view _Exitcode1 (exitcode1 99 "abc")"abc"-view _Exitcode1 (exitcodeValue "abc" 0 "def")"def".view _Exitcode1 (exitcodeValue "abc" 99 "def")"abc"+over _Exitcode1 reverse (exitcode1 0 "abc")"ExitcodeT (Identity (Right "cba")),over _Exitcode1 reverse (exitcode1 99 "abc")&ExitcodeT (Identity (Left ("cba",99)))5over _Exitcode1 reverse (exitcodeValue "abc" 0 "def")"ExitcodeT (Identity (Right "fed"))6over _Exitcode1 reverse (exitcodeValue "abc" 99 "def")&ExitcodeT (Identity (Left ("cba",99)))Cexitcode1throwError 99 :: ExitcodeT (Either Int) () StringExitcodeT (Left 99)catchError exitsuccess0 (exitfailure 'x') :: ExitcodeT (Either Int) Char ()ExitcodeT (Right (Right ()))catchError (exitfailure 'x' 99) (\_ -> exitsuccess0) :: ExitcodeT (Either Int) Char ()!ExitcodeT (Right (Left ('x',99)))catchError (exitfailure 'x' 99) (exitfailure 'y') :: ExitcodeT (Either Int) Char ()!ExitcodeT (Right (Left ('x',99)))catchError exitsuccess0 (\_ -> exitsuccess0) :: ExitcodeT (Either Int) () ()ExitcodeT (Right (Right ()))Eexitcode5writer ('x', "abc") :: ExitcodeT ((,) String) () CharExitcodeT ("abc",Right 'x')=listen (exitfailure 'x' 99 :: ExitcodeT ((,) String) Char ())ExitcodeT ("",Left ('x',99))8listen (exitsuccess 99 :: ExitcodeT ((,) String) () Int)ExitcodeT ("",Right (99,""))*tell "abc" :: ExitcodeT ((,) String) () ()ExitcodeT ("abc",Right ())pass (exitsuccess ('x', reverse)) :: ExitcodeT ((,) String) () CharExitcodeT ("",Right 'x')pass (('x', reverse) <$ (exitfailure 'x' 99 :: ExitcodeT ((,) String) Char ()))ExitcodeT ("",Left ('x',99))Hexitcodetraverse (\x -> x) [exitfailure 'x' 99] :: ExitcodeT Identity Char [()]$ExitcodeT (Identity (Left ('x',99)))traverse (\x -> x) [exitfailure 'x' 99, exitsuccess0] :: ExitcodeT Identity Char [()]$ExitcodeT (Identity (Left ('x',99)))traverse (\x -> x) [exitfailure 'x' 99, exitsuccess0, exitfailure 'y' 88] :: ExitcodeT Identity Char [()]$ExitcodeT (Identity (Left ('x',99)))traverse (\x -> x) [exitsuccess0, exitfailure 'x' 88] :: ExitcodeT Identity Char [()]$ExitcodeT (Identity (Left ('x',88)))?traverse (\x -> x) [exitsuccess0] :: ExitcodeT Identity () [()]!ExitcodeT (Identity (Right [()]))Pexitcodeduplicated (exitfailure () 0) :: ExitcodeT Identity () (ExitcodeT Identity () ())>ExitcodeT (Identity (Right (ExitcodeT (Identity (Right ())))))duplicated (exitfailure () 99) :: ExitcodeT Identity () (ExitcodeT Identity () ())ExitcodeT (Identity (Right (ExitcodeT (Identity (Left ((),99))))))duplicated (exitsuccess "abc") :: ExitcodeT Identity () (ExitcodeT Identity () String)ExitcodeT (Identity (Right (ExitcodeT (Identity (Right "abc")))))Qexitcode&mempty :: ExitcodeT Identity () StringExitcodeT (Identity (Right ""))Rexitcodeexitsuccess "abc" <> exitsuccess "def" :: ExitcodeT Identity () String%ExitcodeT (Identity (Right "abcdef"))exitsuccess "abc" <> exitcodeValue () 99 "def" :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "abc"))exitcodeValue 'x' 99 "abc" <> exitsuccess "def" :: ExitcodeT Identity Char String"ExitcodeT (Identity (Right "def"))exitcodeValue 'x' 99 "abc" <> exitcodeValue 'y' 88 "def" :: ExitcodeT Identity Char String$ExitcodeT (Identity (Left ('y',88)))Sexitcodeexitsuccess "abc" exitsuccess "def" :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "abc"))exitsuccess "abc" exitcodeValue () 99 "def" :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "abc"))exitcodeValue 'x' 99 "abc" exitsuccess "def" :: ExitcodeT Identity Char String"ExitcodeT (Identity (Right "def"))exitcodeValue 'x' 99 "abc" exitcodeValue 'y' 88 "def" :: ExitcodeT Identity Char String$ExitcodeT (Identity (Left ('y',88)))Uexitcodeexitsuccess "abc" >>- \s -> exitsuccess (reverse s) :: ExitcodeT Identity () String"ExitcodeT (Identity (Right "cba"))exitsuccess "abc" >>- \_ -> exitfailure () 99 :: ExitcodeT Identity () ()#ExitcodeT (Identity (Left ((),99)))exitfailure 'x' 99 >>- \_ -> exitsuccess "abc" :: ExitcodeT Identity Char String$ExitcodeT (Identity (Left ('x',99)))exitfailure 'x' 99 >>- \_ -> exitfailure 'y' 88 :: ExitcodeT Identity Char ()$ExitcodeT (Identity (Left ('x',99)))let loop = loop in exitfailure () 99 >>- loop :: ExitcodeT Identity () ()#ExitcodeT (Identity (Left ((),99)))! !"#$%&'()*+,-./0123456789:;<=!"! #$%&'()*56789:,-./;<+01234= Safe-Inferred/YZ[\]^_`abcdef`abcdefYZ[\]^_ Safe-Inferred/jklmnomnojkl Safe-Inferred0rstuturs Safe-Inferred0Mxyz{z{xy Safe-Inferred0} Safe-Inferred0! !  Safe-Inferred1)  Safe-Inferred1a    Safe-Inferred1  Safe-Inferred1##  Safe-Inferred2 Y_^]\Z[`fedcabjklmnorstuxyz{                  ! " #$ #% #& #' #( #) #* #+ #, #-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                                                      &exitcode-0.1.0.7-1vygEoLvHOBZLSP3A2floControl.Process.ProcessControl.ExitcodeControl.Process.CmdSpecControl.Process.FDControl.Process.GroupIDControl.Process.HandleControl.Process.PidControl.Process.ProcessHandleControl.Process.StdStreamControl.Process.UserIDControl.Process.CreateProcessControl.Processprocess-1.6.13.2System.ProcessPidwithCreateProcessterminateProcess spawnProcessshowCommandForUsershell readProcessreadCreateProcessprocgetPid getCurrentPid createProcesscleanupProcess callProcess callCommandSystem.Process.InternalsinterruptProcessGroupOfcreateProcess_ createPipeFd createPipeSystem.Process.Common UseHandleNoStreamInherit CreatePipe StdStream ProcessHandle CreateProcess ShellCommand RawCommandCmdSpec Exitcode1 ExitcodeT1 Exitcode0 ExitcodeT0Exitcode ExitcodeT exitsuccess exitsuccess0 exitfailure exitfailure0 exitcodeValueexitcodeValue0 fromExitCode fromExitCode'exitCode runExitcodeT runExitcodeT0 runExitcode runExitcode0 _ExitcodeInt _ExitcodeInt' _ExitFailure_ExitFailureError _ExitSuccess liftExitcodeliftExitcodeErrorliftExitcodeError0 hoistExitcode embedExitcode exitcode1 runExitcodeT1 runExitcode1 _Exitcode1$fBitraversableExitcodeT$fBifoldableExitcodeT$fBifunctorExitcodeT$fMonadContExitcodeT$fMonadRWSrwsExitcodeT$fMonadErroreExitcodeT$fMonadStatesExitcodeT$fMonadWriterwExitcodeT$fMonadReaderrExitcodeT$fMonadIOExitcodeT$fTraversableExitcodeT$fFoldableExitcodeT$fShow1ExitcodeT$fShowExitcodeT$fOrd1ExitcodeT$fOrdExitcodeT$fEq1ExitcodeT $fEqExitcodeT$fExtendExitcodeT$fMonoidExitcodeT$fSemigroupExitcodeT$fAltExitcodeT$fMonadExitcodeT$fBindExitcodeT$fApplicativeExitcodeT$fApplyExitcodeT$fFunctorExitcodeT HasCmdSpeccmdSpec shellCommand rawCommand rawCommandExerawCommandArgumentListrawCommandArguments AsCmdSpec_CmdSpec _ShellCommand _RawCommand_RawCommandExe_RawCommandArgumentList_RawCommandArguments$fAsCmdSpecCmdSpec$fHasCmdSpecCreateProcess$fHasCmdSpecCmdSpecAsFD_FD_FDInt32HasFDfdfdInt32 $fHasFDCInt $fAsFDCInt AsGroupID_GroupID HasGroupIDgroupID$fHasGroupIDCGid$fAsGroupIDCGidAsHandle_Handle HasHandlehandle$fHasHandleHandle$fAsHandleStdStream$fAsHandleHandleAsPid_Pid _PidInt32HasPidpidpidInt32 $fHasPidCPid $fAsPidCPidreadCreateProcessWithExitCodereadProcessWithExitCodewaitForProcessgetProcessExitCodeAsProcessHandle_ProcessHandleHasProcessHandle processHandle$fHasProcessHandleProcessHandle$fAsProcessHandleProcessHandle HasStdStream stdStream AsStdStream _StdStream_Inherit _CreatePipe _NoStream$fAsStdStreamStdStream$fHasStdStreamStdStreamAsUserID_UserID _UserIDWord32 HasUserIDuserID userIDWord32$fHasUserIDCUid$fAsUserIDCUidAsCreateProcess_CreateProcessHasCreateProcesscreate_process child_group child_user close_fds create_groupcreate_new_consolecwd delegate_ctlcdetach_consoleenv new_sessionstd_errstd_instd_outuse_process_jobscwd'envList envElement envElementKeyenvElementValue close_fds' create_group'delegate_ctlc'detach_console'create_new_console' new_session' child_group' child_user' child_user''use_process_jobs'streamsstreams1$fHasCreateProcessCreateProcess$fAsCreateProcessCreateProcessghc-prim GHC.TypesIntbase GHC.MaybeNothing