exitSuccessP ::
  Prism' Exit.ExitCode ()
exitSuccessP =
  prism'
    (\() -> Exit.ExitSuccess)
    (\x -> case x of
         Exit.ExitFailure _ ->
           Nothing
         Exit.ExitSuccess ->
           Just ())
exitSuccessP ::
  Prism' Exit.ExitCode ()
exitSuccessP =
  prism'
    (\() -> Exit.ExitSuccess)
    (\x -> case x of
         Exit.ExitFailure _ ->
           Nothing
         Exit.ExitSuccess ->
           Just ())
exitSuccessP =
  prism'
    (\() -> Exit.ExitSuccess)
    (\x -> case x of
         Exit.ExitFailure _ ->
           Nothing
         Exit.ExitSuccess ->
           Just ())