couple path separator fixes

1 files changed, 2 insertions, 2 deletions

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