summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/DotDir.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Propellor/DotDir.hs b/src/Propellor/DotDir.hs
index 100342e8..669ac303 100644
--- a/src/Propellor/DotDir.hs
+++ b/src/Propellor/DotDir.hs
@@ -78,9 +78,11 @@ cabalSandboxRequired :: IO Bool
cabalSandboxRequired = ifM cabal
( do
home <- myHomeDir
- ls <- lines <$> readFile (home </> ".cabal" </> "config")
+ ls <- lines <$> catchDefaultIO []
+ (readFile (home </> ".cabal" </> "config"))
-- For simplicity, we assume a sane ~/.cabal/config here:
- return $ "require-sandbox: True" `elem` ls
+ return $ any ("True" `isInfixOf`) $
+ filter ("require-sandbox:" `isPrefixOf`) ls
, return False
)
where