fix error message

This commit is contained in:
Joey Hess 2012-01-25 20:43:01 -04:00
parent 3ca7cf5db1
commit 97209ac08d

View file

@ -31,7 +31,7 @@ runBool subcommand params repo = assertLocal repo $
run :: String -> [CommandParam] -> Repo -> IO ()
run subcommand params repo = assertLocal repo $
unlessM (runBool subcommand params repo) $
error $ "git " ++ show params ++ " failed"
error $ "git " ++ subcommand ++ " " ++ show params ++ " failed"
{- Runs a git subcommand and returns its output, lazily.
-