diff options
Diffstat (limited to 'Git/Status.hs')
-rw-r--r-- | Git/Status.hs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/Git/Status.hs b/Git/Status.hs index 4f9ad0265..778e65248 100644 --- a/Git/Status.hs +++ b/Git/Status.hs @@ -64,13 +64,14 @@ parseStatusZ = go [] cparse '?' = Just Untracked cparse _ = Nothing -getStatus :: [FilePath] -> Repo -> IO ([Status], IO Bool) -getStatus l r = do - (ls, cleanup) <- pipeNullSplit params r +getStatus :: [CommandParam] -> [FilePath] -> Repo -> IO ([Status], IO Bool) +getStatus ps fs r = do + (ls, cleanup) <- pipeNullSplit ps' r return (parseStatusZ ls, cleanup) where - params = - [ Param "status" - , Param "-uall" - , Param "-z" - ] ++ map File l + ps' = concat + [ [Param "status"] + , ps + , [ Param "-uall" , Param "-z"] + , map File fs + ] |