split groups of related functions out of Utility

This commit is contained in:
Joey Hess 2011-08-22 16:14:12 -04:00
parent 4c73d77b42
commit 203148363f
47 changed files with 312 additions and 265 deletions

View file

@ -19,15 +19,15 @@ import System.IO
import System.Cmd.Utils
import Data.String.Utils
import Control.Monad (forM_)
import Utility
import Utility.SafeCommand
import Git
{- An action to perform in a git repository. The file to act on
- is not included, and must be able to be appended after the params. -}
data Action = Action {
getSubcommand :: String,
getParams :: [CommandParam]
data Action = Action
{ getSubcommand :: String
, getParams :: [CommandParam]
} deriving (Show, Eq, Ord)
{- A queue of actions to perform (in any order) on a git repository,