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
99352475
Commit
99352475
authored
Jul 09, 2007
by
Ian Lynagh
Browse files
Add -XTypeOperators flag
parent
6c9010f6
Changes
3
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
99352475
...
...
@@ -200,6 +200,7 @@ data DynFlag
|
Opt_PatternGuards
|
Opt_Rank2Types
|
Opt_RankNTypes
|
Opt_TypeOperators
|
Opt_PrintExplicitForalls
...
...
@@ -1127,6 +1128,7 @@ xFlags = [
(
"Rank2Types"
,
Opt_Rank2Types
),
(
"RankNTypes"
,
Opt_RankNTypes
),
(
"TypeOperators"
,
Opt_TypeOperators
),
(
"RecursiveDo"
,
Opt_RecursiveDo
),
(
"Arrows"
,
Opt_Arrows
),
-- arrow syntax
(
"Parr"
,
Opt_PArr
),
...
...
@@ -1185,6 +1187,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
,
Opt_UnicodeSyntax
,
Opt_PatternGuards
,
Opt_RankNTypes
,
Opt_TypeOperators
,
Opt_RecursiveDo
,
Opt_ParallelListComp
,
Opt_EmptyDataDecls
...
...
compiler/rename/RnEnv.lhs
View file @
99352475
...
...
@@ -571,10 +571,7 @@ lookupFixityRn name
---------------
lookupTyFixityRn :: Located Name -> RnM Fixity
lookupTyFixityRn (L loc n)
= do { glaExts <- doptM Opt_GlasgowExts
; when (not glaExts) (addWarnAt loc (infixTyConWarn n))
; lookupFixityRn n }
lookupTyFixityRn (L loc n) = lookupFixityRn n
---------------
dataTcOccs :: RdrName -> [RdrName]
...
...
@@ -937,8 +934,4 @@ dupNamesErr descriptor located_names
badQualBndrErr rdr_name
= ptext SLIT("Qualified name in binding position:") <+> ppr rdr_name
infixTyConWarn op
= vcat [ftext FSLIT("Accepting non-standard infix type constructor") <+> quotes (ppr op),
ftext FSLIT("Use -fglasgow-exts to avoid this warning")]
\end{code}
compiler/rename/RnTypes.lhs
View file @
99352475
...
...
@@ -124,7 +124,7 @@ rnHsType doc (HsTyVar tyvar)
rnHsType doc ty@(HsOpTy ty1 (L loc op) ty2)
= setSrcSpan loc $
do { ty_ops_ok <- doptM Opt_
ScopedTypeVariables -- Badly named option
do { ty_ops_ok <- doptM Opt_
TypeOperators
; checkErr ty_ops_ok (opTyErr op ty)
; op' <- lookupOccRn op
; let l_op' = L loc op'
...
...
@@ -808,7 +808,7 @@ forAllWarn doc ty (L loc tyvar)
opTyErr op ty
= hang (ptext SLIT("Illegal operator") <+> quotes (ppr op) <+> ptext SLIT("in type") <+> quotes (ppr ty))
2 (parens (ptext SLIT("Use -
fscoped-type-variable
s to allow operators in types")))
2 (parens (ptext SLIT("Use -
XTypeOperator
s to allow operators in types")))
bogusCharError c
= ptext SLIT("character literal out of range: '\\") <> char c <> char '\''
...
...
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