Fixed tests on Windows

2013-03-31 18:12:34 +04:00
parent 653912a066
commit 6be2b8f56e
3 changed files with 18 additions and 14 deletions
--- a/Cradle.hs
+++ b/Cradle.hs
@@ -38,7 +38,7 @@ findCradle Nothing strver = do
          , cradlePackageConf = Nothing
          }
        Just (cdir,cfile) -> do
-            let sbox = cdir </> "cabal-dev/"
+            let sbox = cdir </> "cabal-dev"
                pkgConf = packageConfName sbox strver
            exist <- doesDirectoryExist pkgConf
            return Cradle {