Omnifmt.Pipes

Pipeline for formatting files. The functions listed here are in order of the recommended chain, but it is possible to mix and match them or add custom functions inbetween.

Status

data Status

A status for a file going through the omnifmt pipeline.

Constructors

Unknown

The file has not been processed.

Error

An error occurred somewhere.

Unsupported

The file type is unsupported (i.e., no applicable Program).

Timeout

A command timed out.

Pretty

The file is pretty.

Ugly

The file is ugly.

Prettified

The file is now pretty.

Instances

Eq Status

Show Status

Producers

omnifmt :: FilePath -> FilePath -> (Status, FilePath, FilePath)

Takes an input (ugly) file path and an empty output file path and prepends the Unknown status to them.

Transformers

select :: Monad m => [Status] -> ((Status, FilePath, FilePath) -> m (Status, FilePath, FilePath)) -> Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Utility method for applying a function to files that match certain statuses. Any files that don't match the given statuses will be passed through unmodified.

checkFileSupported :: MonadReader Config m => Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Checks all Unknown files to see if they're supported.

runProgram :: (MonadIO m, MonadLogger m, MonadReader Config m) => Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Runs the applicable Program's command on all Unknown files. This reads in the ugly file path and writes out to the pretty file path.

Note that this function assumes that the file is supported, so make sure the file has been piped through checkFileSupported first.

Any errors that occur are logged using logDebugN.

checkFilePretty :: (MonadIO m, MonadLogger m) => Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Runs a diff over the two file paths for all Unknown files.

This function always updates the status to either Ugly, Pretty or Error.

Any errors that occur are logged using logDebugN.

commit :: MonadIO m => Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Commits the result of runProgram. I.e., writes over all Ugly files with their corresponding pretty file.

This function updates the status to Prettified.

diff :: (MonadIO m, MonadLogger m) => Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Prints out the diff of all ugly files to standard output.

printFileStatus :: MonadLogger m => (Status -> Text -> m ()) -> Pipe (Status, FilePath, FilePath) (Status, FilePath, FilePath) m ()

Logs the status of each file using the given function.