compiler: add new modules pulling in FunFlags
authorSergei Trofimovich <slyfox@gentoo.org>
Thu, 27 Nov 2014 22:08:32 +0000 (22:08 +0000)
committerSergei Trofimovich <slyfox@gentoo.org>
Thu, 27 Nov 2014 22:11:56 +0000 (22:11 +0000)
And also sync type signature under '#ifndef GHCI'
Tested by setting
    GhcWithInterpreter = NO

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
compiler/ghc.mk
compiler/rename/RnSplice.lhs

index 2912aab..640bf75 100644 (file)
@@ -472,6 +472,7 @@ compiler_stage3_SplitObjs = NO
 compiler_stage2_dll0_START_MODULE = DynFlags
 compiler_stage2_dll0_MODULES = \
        Annotations \
 compiler_stage2_dll0_START_MODULE = DynFlags
 compiler_stage2_dll0_MODULES = \
        Annotations \
+       ApiAnnotation \
        Avail \
        Bag \
        BasicTypes \
        Avail \
        Bag \
        BasicTypes \
@@ -498,6 +499,7 @@ compiler_stage2_dll0_MODULES = \
        CoreUnfold \
        CoreUtils \
        CostCentre \
        CoreUnfold \
        CoreUtils \
        CostCentre \
+       Ctype \
        DataCon \
        Demand \
        Digraph \
        DataCon \
        Demand \
        Digraph \
@@ -539,7 +541,7 @@ compiler_stage2_dll0_MODULES = \
        InstEnv \
        Kind \
        Lexeme \
        InstEnv \
        Kind \
        Lexeme \
-       ApiAnnotation \
+       Lexer \
        ListSetOps \
        Literal \
        LoadIface \
        ListSetOps \
        Literal \
        LoadIface \
@@ -602,7 +604,6 @@ ifeq "$(GhcWithInterpreter)" "YES"
 # These files are reacheable from DynFlags
 # only by GHCi-enabled code (see #9552)
 compiler_stage2_dll0_MODULES += \
 # These files are reacheable from DynFlags
 # only by GHCi-enabled code (see #9552)
 compiler_stage2_dll0_MODULES += \
-       ApiAnnotation \
        Bitmap \
        BlockId \
        ByteCodeAsm \
        Bitmap \
        BlockId \
        ByteCodeAsm \
@@ -625,13 +626,11 @@ compiler_stage2_dll0_MODULES += \
        CodeGen.Platform.SPARC \
        CodeGen.Platform.X86 \
        CodeGen.Platform.X86_64 \
        CodeGen.Platform.SPARC \
        CodeGen.Platform.X86 \
        CodeGen.Platform.X86_64 \
-       Ctype \
        FastBool \
        Hoopl \
        Hoopl.Dataflow \
        InteractiveEvalTypes \
        MkGraph \
        FastBool \
        Hoopl \
        Hoopl.Dataflow \
        InteractiveEvalTypes \
        MkGraph \
-       Lexer \
        PprCmm \
        PprCmmDecl \
        PprCmmExpr \
        PprCmm \
        PprCmmDecl \
        PprCmmExpr \
index 8918e39..b0c81b0 100644 (file)
@@ -54,7 +54,7 @@ rnSpliceType e _ = failTH e "Template Haskell type splice"
 rnSpliceExpr :: Bool -> HsSplice RdrName -> RnM (HsExpr Name, FreeVars)
 rnSpliceExpr _ e = failTH e "Template Haskell splice"
 
 rnSpliceExpr :: Bool -> HsSplice RdrName -> RnM (HsExpr Name, FreeVars)
 rnSpliceExpr _ e = failTH e "Template Haskell splice"
 
-rnSplicePat :: HsSplice RdrName -> RnM (Pat Name, FreeVars)
+rnSplicePat :: HsSplice RdrName -> RnM (Either (Pat RdrName) (Pat Name), FreeVars)
 rnSplicePat e = failTH e "Template Haskell pattern splice"
 
 rnSpliceDecl :: SpliceDecl RdrName -> RnM (SpliceDecl Name, FreeVars)
 rnSplicePat e = failTH e "Template Haskell pattern splice"
 
 rnSpliceDecl :: SpliceDecl RdrName -> RnM (SpliceDecl Name, FreeVars)