From d159859049e2354bd16308a71038e6e6e44a1f53 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Jun 2013 14:08:35 -0400 Subject: couple path separator fixes --- Test.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Test.hs') diff --git a/Test.hs b/Test.hs index 9223219d7..fbd30749a 100644 --- a/Test.hs +++ b/Test.hs @@ -1102,13 +1102,13 @@ tmpdir :: String tmpdir = ".t" mainrepodir :: FilePath -mainrepodir = tmpdir ++ "/repo" +mainrepodir = tmpdir "repo" tmprepodir :: IO FilePath tmprepodir = go (0 :: Int) where go n = do - let d = tmpdir ++ "/tmprepo" ++ show n + let d = tmpdir "tmprepo" ++ show n ifM (doesDirectoryExist d) ( go $ n + 1 , return d -- cgit v1.2.3