projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
The templateHaskellOk check should only run in stage2
[ghc-hetmet.git]
/
compiler
/
parser
/
ParserCore.y
diff --git
a/compiler/parser/ParserCore.y
b/compiler/parser/ParserCore.y
index
6839fa2
..
0289cfc
100644
(file)
--- a/
compiler/parser/ParserCore.y
+++ b/
compiler/parser/ParserCore.y
@@
-16,8
+16,9
@@
import RdrName
import OccName
import Type ( Kind,
liftedTypeKindTyCon, openTypeKindTyCon, unliftedTypeKindTyCon,
import OccName
import Type ( Kind,
liftedTypeKindTyCon, openTypeKindTyCon, unliftedTypeKindTyCon,
- argTypeKindTyCon, ubxTupleKindTyCon, mkArrowKind, mkTyConApp
+ argTypeKindTyCon, ubxTupleKindTyCon, mkTyConApp
)
)
+import Coercion( mkArrowKind )
import Name( Name, nameOccName, nameModule, mkExternalName )
import Module
import ParserCoreUtils
import Name( Name, nameOccName, nameModule, mkExternalName )
import Module
import ParserCoreUtils
@@
-276,7
+277,7
@@
exp :: { IfaceExpr }
-- "InlineMe" -> IfaceNote IfaceInlineMe $3
-- }
| '%external' STRING aty { IfaceFCall (ForeignCall.CCall
-- "InlineMe" -> IfaceNote IfaceInlineMe $3
-- }
| '%external' STRING aty { IfaceFCall (ForeignCall.CCall
- (CCallSpec (StaticTarget (mkFastString $2))
+ (CCallSpec (StaticTarget (mkFastString $2) Nothing)
CCallConv (PlaySafe False)))
$3 }
CCallConv (PlaySafe False)))
$3 }