mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

couple path separator fixes

Browse source
This commit is contained in:
Joey Hess 2013-06-18 14:08:35 -04:00
parent a1f8771d2b
commit 8063d68b02
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Test.hs
View file

@ -1102,13 +1102,13 @@ tmpdir :: String
tmpdir = ".t" tmpdir = ".t"
mainrepodir :: FilePath mainrepodir :: FilePath
mainrepodir = tmpdir ++ "/repo" mainrepodir = tmpdir </> "repo"
tmprepodir :: IO FilePath tmprepodir :: IO FilePath
tmprepodir = go (0 :: Int) tmprepodir = go (0 :: Int)
where where
go n = do go n = do
let d = tmpdir ++ "/tmprepo" ++ show n let d = tmpdir </> "tmprepo" ++ show n
ifM (doesDirectoryExist d) ifM (doesDirectoryExist d)
( go $ n + 1 ( go $ n + 1
, return d , return d