Turtle.Prelude

This module provides a large suite of utilities that resemble Unix utilities.

Many of these commands are just existing Haskell commands renamed to match their Unix counterparts:

>>> :set -XOverloadedStrings
>>> cd "/tmp"
>>> pwd
FilePath "/tmp"

Some commands are Shells that emit streams of values. view prints all values in a Shell stream:

>>> view (ls "/usr")
FilePath "/usr/lib"
FilePath "/usr/src"
FilePath "/usr/sbin"
FilePath "/usr/include"
FilePath "/usr/share"
FilePath "/usr/games"
FilePath "/usr/local"
FilePath "/usr/bin"
>>> view (find (suffix "Browser.py") "/usr/lib")
FilePath "/usr/lib/python3.4/idlelib/ClassBrowser.py"
FilePath "/usr/lib/python3.4/idlelib/RemoteObjectBrowser.py"
FilePath "/usr/lib/python3.4/idlelib/PathBrowser.py"
FilePath "/usr/lib/python3.4/idlelib/ObjectBrowser.py"

Use fold to reduce the output of a Shell stream:

>>> import qualified Control.Foldl as Fold
>>> fold (ls "/usr") Fold.length
8
>>> fold (find (suffix "Browser.py") "/usr/lib") Fold.head
Just (FilePath "/usr/lib/python3.4/idlelib/ClassBrowser.py")

Create files using output:

>>> output "foo.txt" ("123" <|> "456" <|> "ABC")
>>> realpath "foo.txt"
FilePath "/tmp/foo.txt"

Read in files using input:

>>> stdout (input "foo.txt")
123
456
ABC

Format strings in a type safe way using format:

>>> dir <- pwd
>>> format ("I am in the "%fp%" directory") dir
"I am in the /tmp directory"

Commands like grep, sed and find accept arbitrary Patterns

>>> stdout (grep ("123" <|> "ABC") (input "foo.txt"))
123
ABC
>>> let exclaim = fmap (<> "!") (plus digit)
>>> stdout (sed exclaim (input "foo.txt"))
123!
456!
ABC

Note that grep and find differ from their Unix counterparts by requiring that the Pattern matches the entire line or file name by default. However, you can optionally match the prefix, suffix, or interior of a line:

>>> stdout (grep (has    "2") (input "foo.txt"))
123
>>> stdout (grep (prefix "1") (input "foo.txt"))
123
>>> stdout (grep (suffix "3") (input "foo.txt"))
123

You can also build up more sophisticated Shell programs using sh in conjunction with do notation:

{-# LANGUAGE OverloadedStrings #-}

import Turtle

main = sh example

example = do
    -- Read in file names from "files1.txt" and "files2.txt"
    file <- fmap fromText (input "files1.txt" <|> input "files2.txt")

    -- Stream each file to standard output only if the file exists
    True <- liftIO (testfile file)
    line <- input file
    liftIO (echo line)

See Turtle.Tutorial for an extended tutorial explaining how to use this library in greater detail.

IO

proc

Arguments

:: MonadIO io

=> Text

Command

-> [Text]

Arguments

-> Shell Text

Lines of standard input

-> io ExitCode

Exit code

Run a command using execvp, retrieving the exit code

The command inherits stdout and stderr for the current process

shell

Arguments

:: MonadIO io

=> Text

Command line

-> Shell Text

Lines of standard input

-> io ExitCode

Exit code

Run a command line using the shell, retrieving the exit code

This command is more powerful than proc, but highly vulnerable to code injection if you template the command line with untrusted input

The command inherits stdout and stderr for the current process

procStrict

Arguments

:: MonadIO io

=> Text

Command

-> [Text]

Arguments

-> Shell Text

Lines of standard input

-> io (ExitCode, Text)

Exit code and stdout

Run a command using execvp, retrieving the exit code and stdout as a non-lazy blob of Text

The command inherits stderr for the current process

shellStrict

Arguments

:: MonadIO io

=> Text

Command line

-> Shell Text

Lines of standard input

-> io (ExitCode, Text)

Exit code and stdout

Run a command line using the shell, retrieving the exit code and stdout as a non-lazy blob of Text

This command is more powerful than proc, but highly vulnerable to code injection if you template the command line with untrusted input

The command inherits stderr for the current process

echo :: MonadIO io => Text -> io ()

Print to stdout

err :: MonadIO io => Text -> io ()

Print to stderr

readline :: MonadIO io => io (Maybe Text)

Read in a line from stdin

Returns Nothing if at end of input

arguments :: MonadIO io => io [Text]

Get command line arguments in a list

export :: MonadIO io => Text -> Text -> io ()

Set or modify an environment variable

unset :: MonadIO io => Text -> io ()

Delete an environment variable

need :: MonadIO io => Text -> io (Maybe Text)

Look up an environment variable

env :: MonadIO io => io [(Text, Text)]

Retrieve all environment variables

cd :: MonadIO io => FilePath -> io ()

Change the current directory

pwd :: MonadIO io => io FilePath

Get the current directory

home :: MonadIO io => io FilePath

Get the home directory

realpath :: MonadIO io => FilePath -> io FilePath

Canonicalize a path

mv :: MonadIO io => FilePath -> FilePath -> io ()

Move a file or directory

Works if the two paths are on the same filesystem. If not, mv will still work when dealing with a regular file, but the operation will not be atomic

mkdir :: MonadIO io => FilePath -> io ()

Create a directory

Fails if the directory is present

mktree :: MonadIO io => FilePath -> io ()

Create a directory tree (equivalent to mkdir -p)

Does not fail if the directory is present

cp :: MonadIO io => FilePath -> FilePath -> io ()

Copy a file

rm :: MonadIO io => FilePath -> io ()

Remove a file

rmdir :: MonadIO io => FilePath -> io ()

Remove a directory

rmtree :: MonadIO io => FilePath -> io ()

Remove a directory tree (equivalent to rm -r)

Use at your own risk

testfile :: MonadIO io => FilePath -> io Bool

Check if a file exists

testdir :: MonadIO io => FilePath -> io Bool

Check if a directory exists

testpath :: MonadIO io => FilePath -> io Bool

Check if a path exists

date :: MonadIO io => io UTCTime

Get the current time

datefile :: MonadIO io => FilePath -> io UTCTime

Get the time a file was last modified

touch :: MonadIO io => FilePath -> io ()

Touch a file, updating the access and modification times to the current time

Creates an empty file if it does not exist

time :: MonadIO io => io a -> io (a, NominalDiffTime)

Time how long a command takes in monotonic wall clock time

Returns the duration alongside the return value

hostname :: MonadIO io => io Text

Get the system's host name

sleep :: MonadIO io => NominalDiffTime -> io ()

Sleep for the given duration

A numeric literal argument is interpreted as seconds. In other words, (sleep 2.0) will sleep for two seconds.

exit :: MonadIO io => ExitCode -> io a

Exit with the given exit code

An exit code of 0 indicates success

die :: MonadIO io => Text -> io a

Throw an exception using the provided Text message

(.&&.) :: Monad m => m ExitCode -> m ExitCode -> m ExitCode infixr 3

Analogous to && in Bash

Runs the second command only if the first one returns ExitSuccess

(.||.) :: Monad m => m ExitCode -> m ExitCode -> m ExitCode infixr 2

Analogous to || in Bash

Run the second command only if the first one returns ExitFailure

Managed

readonly :: FilePath -> Managed Handle

Acquire a Managed read-only Handle from a FilePath

writeonly :: FilePath -> Managed Handle

Acquire a Managed write-only Handle from a FilePath

appendonly :: FilePath -> Managed Handle

Acquire a Managed append-only Handle from a FilePath

mktemp

Arguments

:: FilePath

Parent directory

-> Text

File name template

-> Managed (FilePath, Handle)

Create a temporary file underneath the given directory

Deletes the temporary file when done

Note that this provides the Handle of the file in order to avoid a potential race condition from the file being moved or deleted before you have a chance to open the file. The mktempfile function provides a simpler API if you don't need to worry about that possibility.

mktempfile

Arguments

:: FilePath

Parent directory

-> Text

File name template

-> Managed FilePath

Create a temporary file underneath the given directory

Deletes the temporary file when done

mktempdir

Arguments

:: FilePath

Parent directory

-> Text

Directory name template

-> Managed FilePath

Create a temporary directory underneath the given directory

Deletes the temporary directory when done

fork :: IO a -> Managed (Async a)

Fork a thread, acquiring an Async value

wait :: Async a -> IO a

Wait for an asynchronous action to complete, and return its value. If the asynchronous action threw an exception, then the exception is re-thrown by wait.

wait = atomically . waitSTM

Shell

inproc

Arguments

:: Text

Command

-> [Text]

Arguments

-> Shell Text

Lines of standard input

-> Shell Text

Lines of standard output

Run a command using execvp, streaming stdout as lines of Text

The command inherits stderr for the current process

inshell

Arguments

:: Text

Command line

-> Shell Text

Lines of standard input

-> Shell Text

Lines of standard output

Run a command line using the shell, streaming stdout as lines of Text

This command is more powerful than inproc, but highly vulnerable to code injection if you template the command line with untrusted input

The command inherits stderr for the current process

inprocWithErr

Arguments

:: Text

Command

-> [Text]

Arguments

-> Shell Text

Lines of standard input

-> Shell (Either Text Text)

Lines of standard output

Run a command using the shell, streaming stdout and stderr as lines of Text. Lines from stdout are wrapped in Right and lines from stderr are wrapped in Left.

inshellWithErr

Arguments

:: Text

Command line

-> Shell Text

Lines of standard input

-> Shell (Either Text Text)

Lines of standard output

Run a command line using the shell, streaming stdout and stderr as lines of Text. Lines from stdout are wrapped in Right and lines from stderr are wrapped in Left.

This command is more powerful than inprocWithErr, but highly vulnerable to code injection if you template the command line with untrusted input

stdin :: Shell Text

Read lines of Text from standard input

input :: FilePath -> Shell Text

Read lines of Text from a file

inhandle :: Handle -> Shell Text

Read lines of Text from a Handle

stdout :: MonadIO io => Shell Text -> io ()

Stream lines of Text to standard output

output :: MonadIO io => FilePath -> Shell Text -> io ()

Stream lines of Text to a file

outhandle :: MonadIO io => Handle -> Shell Text -> io ()

Stream lines of Text to a Handle

append :: MonadIO io => FilePath -> Shell Text -> io ()

Stream lines of Text to append to a file

stderr :: MonadIO io => Shell Text -> io ()

Stream lines of Text to standard error

strict :: MonadIO io => Shell Text -> io Text

Read in a stream's contents strictly

ls :: FilePath -> Shell FilePath

Stream all immediate children of the given directory, excluding "." and ".."

lsif :: (FilePath -> IO Bool) -> FilePath -> Shell FilePath

Stream all recursive descendents of the given directory

This skips any directories that fail the supplied predicate

lstree = lsif (\_ -> return True)

lstree :: FilePath -> Shell FilePath

Stream all recursive descendents of the given directory

cat :: [Shell a] -> Shell a

Combine the output of multiple Shells, in order

grep :: Pattern a -> Shell Text -> Shell Text

Keep all lines that match the given Pattern

sed :: Pattern Text -> Shell Text -> Shell Text

Replace all occurrences of a Pattern with its Text result

sed performs substitution on a line-by-line basis, meaning that substitutions may not span multiple lines. Additionally, substitutions may occur multiple times within the same line, like the behavior of s....../g.

Warning: Do not use a Pattern that matches the empty string, since it will match an infinite number of times. sed tries to detect such Patterns and die with an error message if they occur, but this detection is necessarily incomplete.

inplace :: MonadIO io => Pattern Text -> FilePath -> io ()

Like sed, but operates in place on a FilePath (analogous to sed -i)

find :: Pattern a -> FilePath -> Shell FilePath

Search a directory recursively for all files matching the given Pattern

yes :: Shell Text

A Stream of "y"s

nl :: Num n => Shell a -> Shell (n, a)

Number each element of a Shell (starting at 0)

paste :: Shell a -> Shell b -> Shell (a, b)

Merge two Shells together, element-wise

If one Shell is longer than the other, the excess elements are truncated

endless :: Shell ()

A Shell that endlessly emits ()

limit :: Int -> Shell a -> Shell a

Limit a Shell to a fixed number of values

limitWhile :: (a -> Bool) -> Shell a -> Shell a

Limit a Shell to values that satisfy the predicate

This terminates the stream on the first value that does not satisfy the predicate

cache :: (Read a, Show a) => FilePath -> Shell a -> Shell a

Cache a Shell's output so that repeated runs of the script will reuse the result of previous runs. You must supply a FilePath where the cached result will be stored.

The stored result is only reused if the Shell successfully ran to completion without any exceptions. Note: on some platforms Ctrl-C will flush standard input and signal end of file before killing the program, which may trick the program into "successfully" completing.

Folds

countChars :: Integral n => Fold Text n

Count the number of characters in the stream (like wc -c)

This uses the convention that the elements of the stream are implicitly ended by newlines that are one character wide

countWords :: Integral n => Fold Text n

Count the number of words in the stream (like wc -w)

countLines :: Integral n => Fold Text n

Count the number of lines in the stream (like wc -l)

This uses the convention that each element of the stream represents one line

Text

cut :: Pattern a -> Text -> [Text]

Split a line into chunks delimited by the given Pattern

Permissions

data Permissions :: *

Instances

Eq Permissions

Ord Permissions

Read Permissions

Show Permissions

chmod

Arguments

:: MonadIO io

=> (Permissions -> Permissions)

Permissions update function

-> FilePath

Path

-> io Permissions

Updated permissions

Update a file or directory's user permissions

chmod rwo        "foo.txt"  -- chmod u=rw foo.txt
chmod executable "foo.txt"  -- chmod u+x foo.txt
chmod nonwritable "foo.txt" -- chmod u-x foo.txt

getmod :: MonadIO io => FilePath -> io Permissions

Get a file or directory's user permissions

setmod :: MonadIO io => Permissions -> FilePath -> io ()

Set a file or directory's user permissions

readable :: Permissions -> Permissions

+r

nonreadable :: Permissions -> Permissions

-r

writable :: Permissions -> Permissions

+w

nonwritable :: Permissions -> Permissions

-w

executable :: Permissions -> Permissions

+x

nonexecutable :: Permissions -> Permissions

-x

searchable :: Permissions -> Permissions

+s

nonsearchable :: Permissions -> Permissions

-s

ooo :: Permissions -> Permissions

-r -w -x

roo :: Permissions -> Permissions

+r -w -x

owo :: Permissions -> Permissions

-r +w -x

oox :: Permissions -> Permissions

-r -w +x

oos :: Permissions -> Permissions

-r -w +s

rwo :: Permissions -> Permissions

+r +w -x

rox :: Permissions -> Permissions

+r -w +x

ros :: Permissions -> Permissions

+r -w +s

owx :: Permissions -> Permissions

-r +w +x

rwx :: Permissions -> Permissions

+r +w +x

rws :: Permissions -> Permissions

+r +w +s

File size

du :: MonadIO io => FilePath -> io Size

Get the size of a file or a directory

data Size

An abstract file size

Specify the units you want by using an accessor like kilobytes

The Num instance for Size interprets numeric literals as bytes

Instances

Num Size

Show Size

sz :: Format r (Size -> r)

Format a Size using a human readable representation

>>> format sz 42
"42 B"
>>> format sz 2309
"2.309 KB"
>>> format sz 949203
"949.203 MB"
>>> format sz 1600000000
"1.600 GB"
>>> format sz 999999999999999999
"999999.999 TB"

bytes :: Integral n => Size -> n

Extract a size in bytes

kilobytes :: Integral n => Size -> n

1 kilobyte = 1000 bytes

megabytes :: Integral n => Size -> n

1 megabyte = 1000 kilobytes

gigabytes :: Integral n => Size -> n

1 gigabyte = 1000 megabytes

terabytes :: Integral n => Size -> n

1 terabyte = 1000 gigabytes

kibibytes :: Integral n => Size -> n

1 kibibyte = 1024 bytes

mebibytes :: Integral n => Size -> n

1 mebibyte = 1024 kibibytes

gibibytes :: Integral n => Size -> n

1 gibibyte = 1024 mebibytes

tebibytes :: Integral n => Size -> n

1 tebibyte = 1024 gibibytes