forge/Vervis
1
0
Fork 0
Code Pull requests Activity

In Darcs pull over SSH, support specifying just repo name

Browse source
This commit is contained in:
fr33domlover 2016-05-04 11:10:23 +00:00
parent 099d9a6351
commit 8448355f98
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Ssh.hs
View file

@ -143,8 +143,10 @@ authorize (PublicKey name key) = do
--TOD TODO TODO check paths for safety... no /./ or /../ and so on --TOD TODO TODO check paths for safety... no /./ or /../ and so on
darcsRepoSpecP :: Parser RepoSpec darcsRepoSpecP :: Parser RepoSpec
darcsRepoSpecP = SpecUserRepo <$> part <* char '/' <*> part <* char '/' darcsRepoSpecP = f <$> part <* char '/' <*> optional (part <* char '/')
where where
f repo Nothing = SpecRepo repo
f sharer (Just repo) = SpecUserRepo sharer repo
part = takeWhile1 (/= '/') part = takeWhile1 (/= '/')
gitRepoSpecP :: Parser RepoSpec gitRepoSpecP :: Parser RepoSpec