Wrapper for Text's breakOn that differs in that:

1. If the needle is found within the haystack, we do not include it in the second part of the pair.

Examples

>>> -- Data.Text
>>> T.breakOn "=" "HEY=LISTEN"
("HEY","=LISTEN")

>>> -- Shrun.Utils.Text
>>> breakStripPoint "=" "HEY=LISTEN"
("HEY","LISTEN")

>>> breakStripPoint "=" "HEYLISTEN"
("HEYLISTEN","")

>>> breakStripPoint "=" "=HEYLISTEN"
("","HEYLISTEN")

>>> breakStripPoint "=" "HEYLISTEN="
("HEYLISTEN","")

>>> breakStripPoint "=" "HEY==LISTEN"
("HEY","=LISTEN")

For Natural \(n\) and Text \(t = t_0 t_1 \ldots t_m\), truncates \(t\) if \(m > n\). In this case, \(t\) is truncated to \(n - 3\), and an ellipsis ( \(\ldots\) ) is appended. We are left with a string with length exactly \(n\):

\[ t_0 t_1 \ldots t_{n-3} \text{...} \quad \text{-- 3 literal } `\text{.' chars appended} \]

Examples

>>> truncateIfNeeded 7 "hi"
"hi"

>>> truncateIfNeeded 10 "This is 21 chars long"
"This is..."

Strips all control chars, including ansi escape sequences.

Examples

>>> stripControlAll "foo\ESC[0;3Abar \n baz"
"foobar  baz"

Strips control chars, including most ansi escape sequences. We leave behind SGR ansi escape sequences e.g. text coloring. See https://en.wikipedia.org/wiki/ANSI_escape_code#SGR_(Select_Graphic_Rendition)_parameters.

Examples

>>> stripControlSmart "foo\ESC[0;3Abar \n baz"
"foobar  baz"

>>> stripControlSmart "foo\ESC[0;3mbar \n baz"
"foo\ESC[0;3mbar  baz"

Escape double quotes in strings.

For given \(x, y\), returns the absolute difference \(|x - y|\) in seconds.

Examples

>>> :{
  let t1 = MkTimeSpec 5 0
      -- 20 s + 1 billion ns = 21 s
      t2 = MkTimeSpec 20 1_000_000_000
  in diffTime t1 t2
:}
16

Transforms a TimeSpec into a RelativeTime.

Hides stdin input. Some caveats:

• Tragically, this does not prevent sudo from hijacking stdin e.g.

  shrun "sudo ls && sleep 10"

will launch the prompt which will overwrite the terminal. Oh well.

• It does not swallow stdin e.g. read stdin and throw it away. For example, if the user types in a bunch of stuff, it will be buffered in memory then printed / executed (e.g. enter key) after shrun finishes.

For the main console, this is handled by drainStdin.

Drains stdin.

Parses a finite type from an injective function.

inverseMap with a Text injection that fails via MonadFail and fmtUnrecognizedError. Intended for parsing config values.

inverseMap with text keys given by a Pretty instance.

inverseMapFail with Pretty instance.

Reads from a queue and applies the function, if we receive a value. Atomic in the sense that if a read is successful, then we will apply the given function, even if an async exception is raised.

Provides a standard format for "unrecognized param" failures.

Parses bytes with arbitrary units and converts to bytes. First attempts to parse as a Natural so we do not lose precision. If that fails, falls back to Double.

Examples

>>> parseByteText "120 mb"
Right (MkBytes 120000000)

>>> parseByteText "4.5 terabytes"
Right (MkBytes 4500000000000)

whileM_ mb ma executes ma as long as mb returns True.

Runs the action when it is Left.

Executes the monadic action until we receive a Just, returning the value.

"monus" i.e. subtraction clamped to zero