Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
f4e40607
Commit
f4e40607
authored
Jul 08, 2007
by
Ian Lynagh
Browse files
Add -XEmptyDataDecls flag
parent
aa13a496
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
f4e40607
...
...
@@ -184,6 +184,7 @@ data DynFlag
|
Opt_GADTs
|
Opt_RelaxedPolyRec
-- -X=RelaxedPolyRec
|
Opt_MagicHash
|
Opt_EmptyDataDecls
-- optimisation opts
|
Opt_Strictness
...
...
@@ -1094,6 +1095,7 @@ fFlags = [
xFlags
::
[(
String
,
DynFlag
)]
xFlags
=
[
(
"MagicHash"
,
Opt_MagicHash
),
(
"EmptyDataDecls"
,
Opt_EmptyDataDecls
),
(
"FI"
,
Opt_FFI
),
-- support `-ffi'...
(
"FFI"
,
Opt_FFI
),
-- ...and also `-fffi'
(
"ForeignFunctionInterface"
,
Opt_FFI
),
...
...
@@ -1138,6 +1140,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
,
Opt_ImplicitParams
,
Opt_ScopedTypeVariables
,
Opt_MagicHash
,
Opt_EmptyDataDecls
,
Opt_TypeFamilies
]
------------------
...
...
compiler/typecheck/TcTyClsDecls.lhs
View file @
f4e40607
...
...
@@ -694,6 +694,7 @@ tcTyClDecl1 calc_isrec
; want_generic <- doptM Opt_Generics
; unbox_strict <- doptM Opt_UnboxStrictFields
; gla_exts <- doptM Opt_GlasgowExts
; empty_data_decls <- doptM Opt_EmptyDataDecls
; gadt_ok <- doptM Opt_GADTs
; is_boot <- tcIsHsBoot -- Are we compiling an hs-boot file?
...
...
@@ -707,8 +708,8 @@ tcTyClDecl1 calc_isrec
; checkTc (null stupid_theta || h98_syntax) (badStupidTheta tc_name)
-- Check that there's at least one condecl,
-- or else we're reading an hs-boot file, or -
fglasgow-ext
s
; checkTc (not (null cons) ||
gla_ext
s || is_boot)
-- or else we're reading an hs-boot file, or -
XEmptyDataDecl
s
; checkTc (not (null cons) ||
empty_data_decl
s || is_boot)
(emptyConDeclsErr tc_name)
-- Check that a newtype has exactly one constructor
...
...
@@ -1250,5 +1251,5 @@ tyFamAppInIndexErr ty
emptyConDeclsErr tycon
= sep [quotes (ppr tycon) <+> ptext SLIT("has no constructors"),
nest 2 $ ptext SLIT("(-
fglasgow-ext
s permits this)")]
nest 2 $ ptext SLIT("(-
XEmptyDataDecl
s permits this)")]
\end{code}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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