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

Fix MonadFail warning

parent 268155a0
......@@ -6,7 +6,10 @@ import Settings.Builders.Common
deriveConstantsBuilderArgs :: Args
deriveConstantsBuilderArgs = builder DeriveConstants ? do
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
[ output "//DerivedConstants.h" ? arg "--gen-header"
, 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