Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a8cbd160
Commit
a8cbd160
authored
Aug 19, 2017
by
Andrey Mokhov
Browse files
Fix MonadFail warning
parent
268155a0
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Settings/Builders/DeriveConstants.hs
View file @
a8cbd160
...
...
@@ -5,8 +5,11 @@ import Settings.Builders.Common
-- TODO: do we need to support `includes_CC_OPTS += -DDYNAMIC_BY_DEFAULT`?
deriveConstantsBuilderArgs
::
Args
deriveConstantsBuilderArgs
=
builder
DeriveConstants
?
do
cFlags
<-
includeCcArgs
[
outputFile
,
tempDir
]
<-
getOutputs
cFlags
<-
includeCcArgs
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"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment