Commit 9ccb003b authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Tweak flags error message and use monad failure rather than error

parent dec6aecc
......@@ -1132,7 +1132,7 @@ parsePackageDescription file = do
checkCondTreeFlags definedFlags ct = do
let fv = nub $ freeVars ct
when (not . all (`elem` definedFlags) $ fv) $
error $ "Undefined flag(s) encountered: " ++
fail $ "These flags are used without having been defined: " ++
(concat . intersperse " " $ (fv \\ definedFlags))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment