Commit a8cbd160 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Fix MonadFail warning

parent 268155a0
...@@ -5,8 +5,11 @@ import Settings.Builders.Common ...@@ -5,8 +5,11 @@ import Settings.Builders.Common
-- TODO: do we need to support `includes_CC_OPTS += -DDYNAMIC_BY_DEFAULT`? -- TODO: do we need to support `includes_CC_OPTS += -DDYNAMIC_BY_DEFAULT`?
deriveConstantsBuilderArgs :: Args deriveConstantsBuilderArgs :: Args
deriveConstantsBuilderArgs = builder DeriveConstants ? do deriveConstantsBuilderArgs = builder DeriveConstants ? do
cFlags <- includeCcArgs cFlags <- includeCcArgs
[outputFile, tempDir] <- getOutputs outs <- getOutputs
let (outputFile, tempDir) = case outs of
[a, b] -> (a, b)
_ -> error $ "DeriveConstants: expected two outputs, got " ++ show outs
mconcat mconcat
[ output "//DerivedConstants.h" ? arg "--gen-header" [ output "//DerivedConstants.h" ? arg "--gen-header"
, output "//GHCConstantsHaskellType.hs" ? arg "--gen-haskell-type" , output "//GHCConstantsHaskellType.hs" ? arg "--gen-haskell-type"
......
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