head 2025-01-02 16:26:31+00:00

bfrk · Jan 2, 2025 · b5d33e8 · b5d33e8
1 parent b996cf2
commit b5d33e8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/harness/Darcs/Test/Shell.hs b/harness/Darcs/Test/Shell.hs
@@ -13,7 +13,7 @@ import Darcs.Repository.Prefs ( globalCacheDir )
 
 import Control.Exception ( SomeException )
 import Data.List ( intercalate )
-import Data.Maybe ( fromJust )
+import Data.Maybe ( fromMaybe )
 import Data.Tagged ( Tagged(..) )
 import Data.Text ( Text, pack, unpack )
 import qualified Data.Text as T
@@ -117,7 +117,7 @@ runtest' ShellTest{..} srcdir =
           , ("TESTDATA", EnvFilePath (srcdir </> "tests" </> "data"))
           , ("TESTBIN", EnvFilePath (srcdir </> "tests" </> "bin"))
           , ("DARCS_TESTING_PREFS_DIR"   , EnvFilePath $ wd </> ".darcs")
-          , ("DARCS_TESTING_CACHE_DIR"   , EnvFilePath $ fromJust cacheDir)
+          , ("DARCS_TESTING_CACHE_DIR"   , EnvFilePath $ fromMaybe (wd </> ".cache") cacheDir)
           , ("EMAIL"                     , EnvString "tester")
           , ("GIT_AUTHOR_NAME"           , EnvString "tester")
           , ("GIT_AUTHOR_EMAIL"          , EnvString "tester")