Lastik.Util

Documentation

(>>>>) :: Monad m => m ExitCode -> m ExitCode -> m ExitCode

Applies the second value only if the first produces ExitSuccess.

(>>>>>) :: Monad m => m ExitCode -> m () -> m ()

Executes the second action only if the first produces ExitSuccess.

quote :: String -> String

Surrounds the given string in double-quotes.

(>===<) :: String -> [String] -> String

Surrounds each string in the list with double-quotes then intercalates the other given value.

(~~) :: String -> Bool -> String

An empty list if the boolean is False otherwise the given string value with - prepended.

(~??) :: String -> [FilePath] -> String

If the given list of file paths is empty, then returns the empty list. Otherwise prepend - to the string followed by ' ' then the search path separator intercalated in the list of file paths.

 Posix
 "123" ~?? ["abc", "def"] == "-123 \"abc\":\"def\""
 "123" ~?? ["abc", "def", "ghi"] == "-123 \"abc\":\"def\":\"ghi\""

(~?) :: (k -> [a]) -> Maybe k -> [a]

If the given value is Nothing return the empty list, otherwise run the given function.

param :: String -> Char -> (k -> String) -> Maybe k -> String

If the given value is Nothing return the empty list, otherwise prepend - to the given string followed by the given character followed by surrounding the result of running the given function in double-quotes.

 param "abc" 'x' id (Just "tuv") == "-abcx\"tuv\""
 param "abc" 'x' id Nothing == ""

many :: String -> [String] -> String

A parameter with many values interspersed by ' '.

 many "abc" ["tuv", "wxy"] == "-abc \"tuv\" -abc \"wxy\""

manys :: (a -> String) -> String -> [a] -> String

A parameter with many values interspersed by ' '.

 manys id "abc" ["tuv", "wxy"] == "-abc \"tuv\" -abc \"wxy\""

(~~~~>) :: String -> String -> String

Prepends - followed by the first value then ' ' then the second value surrounded by double-quotes.

 "abc" ~~~~> "def" == "-abc \"def\""

(~~~>) :: String -> Maybe String -> String

If the given value is Nothing return the empty list, otherwise prepend - followed by the first value then ' ' then the second value surrounded by double-quotes.

 "abc" ~~~> Just "def" == "-abc \"def\""
 "abc" ~~~> Nothing == ""

(~~>) :: String -> (k -> String) -> Maybe k -> String

If the given value is Nothing return the empty list, otherwise prepend - followed by the first value then ' ' followed by surrounding the result of running the given function in double-quotes.

 "abc" ~~> id $ Just "def" == "-abc \"def\""
 "abc" ~~> id $ Nothing == ""

(-~>) :: String -> (k -> String) -> Maybe k -> String

If the given value is Nothing return the empty list, otherwise prepend - followed by the first value then : followed by surrounding the result of running the given function in double-quotes.

 "abc" ~~> id $ Just "def" == "-abc:\"def\""
 "abc" ~~> id $ Nothing == ""

(^^^) :: [[a]] -> [a] -> [a]

Removes all empty lists from the first argument the intercalates the second argument.

 ["abc", "", "def"] ^^^ "x" == "abcxdef"

space :: [String] -> String

Surrounds each given value in double-quotes then intercalates ' '.

 space ["abc", "def"] == "\"abc\" \"def\""

space' :: [String] -> String

Intercalates ' '.

 space' ["abc", "def"] == "abc def"

uncons :: a -> (b -> [b] -> a) -> [b] -> a

If the given list is empty return the first argument, otherwise run the given function on the head and tail.

ifM :: Monad f => f Bool -> f a -> f a -> f a

ifthenelse with a lifted predicate.