projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generalise Package Support
[ghc-hetmet.git]
/
compiler
/
parser
/
ParserCore.y
diff --git
a/compiler/parser/ParserCore.y
b/compiler/parser/ParserCore.y
index
02a6c7b
..
a9669b2
100644
(file)
--- a/
compiler/parser/ParserCore.y
+++ b/
compiler/parser/ParserCore.y
@@
-10,6
+10,7
@@
import OccName
import Kind( Kind(..) )
import Name( nameOccName, nameModule )
import Module
import Kind( Kind(..) )
import Name( nameOccName, nameModule )
import Module
+import PackageConfig ( mainPackageId )
import ParserCoreUtils
import LexCore
import Literal
import ParserCoreUtils
import LexCore
import Literal
@@
-72,7
+73,8
@@
module :: { HsExtCore RdrName }
: '%module' modid tdefs vdefgs { HsExtCore $2 $3 $4 }
modid :: { Module }
: '%module' modid tdefs vdefgs { HsExtCore $2 $3 $4 }
modid :: { Module }
- : CNAME { mkModuleFS (mkFastString $1) }
+ : CNAME { mkModule mainPackageId -- ToDo: wrong
+ (mkModuleNameFS (mkFastString $1)) }
-------------------------------------------------------------
-- Type and newtype declarations are in HsSyn syntax
-------------------------------------------------------------
-- Type and newtype declarations are in HsSyn syntax