forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Add comments to git functions

Browse source
This commit is contained in:
fr33domlover 2016-02-11 09:36:09 +00:00
parent d2e78b4c51
commit 2b15a16115
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Vervis/Git.hs
View file

@ -63,6 +63,7 @@ data Server = Server
, serverRepos :: HashMap (Either Int Int) [Repository] , serverRepos :: HashMap (Either Int Int) [Repository]
} }
-- | Return the subdirs of a given dir
subdirs :: FilePath -> IO [FilePath] subdirs :: FilePath -> IO [FilePath]
subdirs dir = do subdirs dir = do
_base :/ tree <- buildL dir _base :/ tree <- buildL dir
@ -73,6 +74,7 @@ subdirs dir = do
in mapMaybe dirName cs in mapMaybe dirName cs
_ -> [] _ -> []
-- | Determine the time of the last commit in a given git branch
lastBranchChange :: Git -> String -> IO GitTime lastBranchChange :: Git -> String -> IO GitTime
lastBranchChange git branch = do lastBranchChange git branch = do
mref <- resolveRevision git $ Revision branch [] mref <- resolveRevision git $ Revision branch []
@ -80,6 +82,7 @@ lastBranchChange git branch = do
let mtime = fmap (personTime . commitCommitter) (join mco) let mtime = fmap (personTime . commitCommitter) (join mco)
return $ fromMaybe (error "mtime is Nothing") mtime return $ fromMaybe (error "mtime is Nothing") mtime
-- | Determine the time of the last commit in any branch for a given repo
lastChange :: FilePath -> IO DateTime lastChange :: FilePath -> IO DateTime
lastChange path = withRepo (fromString path) $ \ git -> do lastChange path = withRepo (fromString path) $ \ git -> do
--TODO add a better intro to json-state, the docs are bad there --TODO add a better intro to json-state, the docs are bad there