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
589b4037
Commit
589b4037
authored
Aug 04, 2007
by
Ian Lynagh
Browse files
Canonicalise flags in error message
parent
0ee3de0a
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
589b4037
...
...
@@ -183,7 +183,7 @@ data DynFlag
|
Opt_RecordWildCards
|
Opt_RecordPuns
|
Opt_GADTs
|
Opt_RelaxedPolyRec
-- -X=RelaxedPolyRec
|
Opt_RelaxedPolyRec
|
Opt_StandaloneDeriving
|
Opt_DeriveDataTypeable
|
Opt_TypeSynonymInstances
...
...
compiler/typecheck/TcTyClsDecls.lhs
View file @
589b4037
...
...
@@ -1187,7 +1187,7 @@ badDataConTyCon data_con
badGadtDecl tc_name
= vcat [ ptext SLIT("Illegal generalised algebraic data declaration for") <+> quotes (ppr tc_name)
, nest 2 (parens $ ptext SLIT("Use -X
=
GADT to allow GADTs")) ]
, nest 2 (parens $ ptext SLIT("Use -XGADT
s
to allow GADTs")) ]
badStupidTheta tc_name
= ptext SLIT("A data type declared in GADT style cannot have a context:") <+> quotes (ppr tc_name)
...
...
@@ -1220,7 +1220,7 @@ badSigTyDecl tc_name
badFamInstDecl tc_name
= vcat [ ptext SLIT("Illegal family instance for") <+>
quotes (ppr tc_name)
, nest 2 (parens $ ptext SLIT("Use -X
=
TypeFamilies to allow indexed type families")) ]
, nest 2 (parens $ ptext SLIT("Use -XTypeFamilies to allow indexed type families")) ]
badGadtIdxTyDecl tc_name
= vcat [ ptext SLIT("Illegal generalised algebraic data declaration for") <+>
...
...
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