diff options
author | 2011-09-28 14:47:56 -0400 | |
---|---|---|
committer | 2011-09-28 14:48:00 -0400 | |
commit | 4f4eaf387ab801157cb8986a9ca3542a977e9e03 (patch) | |
tree | def9caf06f70677725348979f77abd4c262971d9 | |
parent | a3cb5c47e5f4167c711ab57f4b06d6c9d56536c8 (diff) |
golf
-rw-r--r-- | Git.hs | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -451,11 +451,8 @@ commit g message newref parentrefs = do {- Reads null terminated output of a git command (as enabled by the -z - parameter), and splits it into a list of files/lines/whatever. -} pipeNullSplit :: Repo -> [CommandParam] -> IO [FilePath] -pipeNullSplit repo params = do - fs0 <- pipeRead repo params - return $ split0 fs0 - where - split0 s = filter (not . null) $ split "\0" s +pipeNullSplit repo params = filter (not . null) . split "\0" <$> + pipeRead repo params {- Runs git config and populates a repo with its config. -} configRead :: Repo -> IO Repo |