ghc-lib-parser 8.10.1.20200412 → 8.10.1.20200518
raw patch · 85 files changed
+142/−142 lines, 85 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- compiler/GHC/Hs/Doc.hs +1/−1
- compiler/GHC/Hs/Expr.hs +1/−1
- compiler/GHC/Hs/Lit.hs +1/−1
- compiler/GHC/Hs/Types.hs +1/−1
- compiler/GHC/Hs/Utils.hs +1/−1
- compiler/GHC/HsToCore/PmCheck/Types.hs +1/−1
- compiler/GhclibHsVersions.h +56/−0
- compiler/HsVersions.h +0/−56
- compiler/basicTypes/Avail.hs +1/−1
- compiler/basicTypes/ConLike.hs +1/−1
- compiler/basicTypes/DataCon.hs +1/−1
- compiler/basicTypes/Demand.hs +1/−1
- compiler/basicTypes/Id.hs +1/−1
- compiler/basicTypes/IdInfo.hs +1/−1
- compiler/basicTypes/Literal.hs +1/−1
- compiler/basicTypes/MkId.hs +1/−1
- compiler/basicTypes/NameCache.hs +1/−1
- compiler/basicTypes/NameEnv.hs +1/−1
- compiler/basicTypes/NameSet.hs +1/−1
- compiler/basicTypes/PatSyn.hs +1/−1
- compiler/basicTypes/RdrName.hs +1/−1
- compiler/basicTypes/Unique.hs +1/−1
- compiler/basicTypes/Var.hs +1/−1
- compiler/basicTypes/VarSet.hs +1/−1
- compiler/coreSyn/CoreArity.hs +1/−1
- compiler/coreSyn/CoreFVs.hs +1/−1
- compiler/coreSyn/CoreMap.hs +1/−1
- compiler/coreSyn/CoreOpt.hs +1/−1
- compiler/coreSyn/CoreSubst.hs +1/−1
- compiler/coreSyn/CoreSyn.hs +1/−1
- compiler/coreSyn/CoreTidy.hs +1/−1
- compiler/coreSyn/CoreUnfold.hs +1/−1
- compiler/coreSyn/CoreUtils.hs +1/−1
- compiler/coreSyn/MkCore.hs +1/−1
- compiler/iface/BinFingerprint.hs +1/−1
- compiler/iface/IfaceSyn.hs +1/−1
- compiler/iface/IfaceType.hs +1/−1
- compiler/iface/ToIface.hs +1/−1
- compiler/main/CmdLineParser.hs +1/−1
- compiler/main/DriverPhases.hs +1/−1
- compiler/main/DynFlags.hs +1/−1
- compiler/main/ErrUtils.hs +1/−1
- compiler/main/HeaderInfo.hs +1/−1
- compiler/main/HscTypes.hs +1/−1
- compiler/main/PackageConfig.hs +1/−1
- compiler/main/Packages.hs +1/−1
- compiler/main/SysTools/BaseDir.hs +1/−1
- compiler/parser/Ctype.hs +1/−1
- compiler/parser/RdrHsSyn.hs +1/−1
- compiler/prelude/KnownUniques.hs +1/−1
- compiler/prelude/PrelNames.hs +1/−1
- compiler/prelude/PrelRules.hs +1/−1
- compiler/prelude/PrimOp.hs +1/−1
- compiler/prelude/TysPrim.hs +1/−1
- compiler/prelude/TysWiredIn.hs +1/−1
- compiler/simplCore/OccurAnal.hs +1/−1
- compiler/simplStg/RepType.hs +1/−1
- compiler/specialise/Rules.hs +1/−1
- compiler/typecheck/Constraint.hs +1/−1
- compiler/typecheck/TcEvidence.hs +1/−1
- compiler/typecheck/TcOrigin.hs +1/−1
- compiler/typecheck/TcRnTypes.hs +1/−1
- compiler/typecheck/TcType.hs +1/−1
- compiler/types/Class.hs +1/−1
- compiler/types/CoAxiom.hs +1/−1
- compiler/types/Coercion.hs +1/−1
- compiler/types/FamInstEnv.hs +1/−1
- compiler/types/InstEnv.hs +1/−1
- compiler/types/OptCoercion.hs +1/−1
- compiler/types/TyCoRep.hs +2/−2
- compiler/types/TyCoSubst.hs +1/−1
- compiler/types/TyCon.hs +1/−1
- compiler/types/Type.hs +1/−1
- compiler/types/Unify.hs +1/−1
- compiler/utils/Binary.hs +1/−1
- compiler/utils/Digraph.hs +1/−1
- compiler/utils/FastFunctions.hs +1/−1
- compiler/utils/FastString.hs +1/−1
- compiler/utils/Fingerprint.hs +1/−1
- compiler/utils/ListSetOps.hs +1/−1
- compiler/utils/Pair.hs +1/−1
- compiler/utils/PlainPanic.hs +1/−1
- compiler/utils/StringBuffer.hs +1/−1
- compiler/utils/Util.hs +1/−1
- ghc-lib-parser.cabal +3/−3
compiler/GHC/Hs/Doc.hs view
@@ -21,7 +21,7 @@ , emptyArgDocMap ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/GHC/Hs/Expr.hs view
@@ -18,7 +18,7 @@ -- | Abstract Haskell syntax for expressions. module GHC.Hs.Expr where -#include "HsVersions.h"+#include "GhclibHsVersions.h" -- friends: import GhcPrelude
compiler/GHC/Hs/Lit.hs view
@@ -17,7 +17,7 @@ module GHC.Hs.Lit where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/GHC/Hs/Types.hs view
@@ -70,7 +70,7 @@ hsTypeNeedsParens, parenthesizeHsType, parenthesizeHsContext ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/GHC/Hs/Utils.hs view
@@ -95,7 +95,7 @@ lStmtsImplicits, hsValBindsImplicits, lPatImplicits ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/GHC/HsToCore/PmCheck/Types.hs view
@@ -32,7 +32,7 @@ VarInfo(..), TmState(..), TyState(..), Delta(..), initDelta ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
+ compiler/GhclibHsVersions.h view
@@ -0,0 +1,56 @@+#pragma once++-- For GHC_STAGE+#include "ghcplatform.h"++#if 0++IMPORTANT! If you put extra tabs/spaces in these macro definitions,+you will screw up the layout where they are used in case expressions!++(This is cpp-dependent, of course)++#endif++#define GLOBAL_VAR(name,value,ty) \+{-# NOINLINE name #-}; \+name :: IORef (ty); \+name = Util.global (value);++#define GLOBAL_VAR_M(name,value,ty) \+{-# NOINLINE name #-}; \+name :: IORef (ty); \+name = Util.globalM (value);+++#define SHARED_GLOBAL_VAR(name,accessor,saccessor,value,ty) \+{-# NOINLINE name #-}; \+name :: IORef (ty); \+name = Util.sharedGlobal (value) (accessor); \+foreign import ccall unsafe saccessor \+ accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));++#define SHARED_GLOBAL_VAR_M(name,accessor,saccessor,value,ty) \+{-# NOINLINE name #-}; \+name :: IORef (ty); \+name = Util.sharedGlobalM (value) (accessor); \+foreign import ccall unsafe saccessor \+ accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));+++#define ASSERT(e) if debugIsOn && not (e) then (assertPanic __FILE__ __LINE__) else+#define ASSERT2(e,msg) if debugIsOn && not (e) then (assertPprPanic __FILE__ __LINE__ (msg)) else+#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $++-- Examples: Assuming flagSet :: String -> m Bool+--+-- do { c <- getChar; MASSERT( isUpper c ); ... }+-- do { c <- getChar; MASSERT2( isUpper c, text "Bad" ); ... }+-- do { str <- getStr; ASSERTM( flagSet str ); .. }+-- do { str <- getStr; ASSERTM2( flagSet str, text "Bad" ); .. }+-- do { str <- getStr; WARNM2( flagSet str, text "Flag is set" ); .. }+#define MASSERT(e) ASSERT(e) return ()+#define MASSERT2(e,msg) ASSERT2(e,msg) return ()+#define ASSERTM(e) do { bool <- e; MASSERT(bool) }+#define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) }+#define WARNM2(e,msg) do { bool <- e; WARN(bool, msg) return () }
− compiler/HsVersions.h
@@ -1,56 +0,0 @@-#pragma once---- For GHC_STAGE-#include "ghcplatform.h"--#if 0--IMPORTANT! If you put extra tabs/spaces in these macro definitions,-you will screw up the layout where they are used in case expressions!--(This is cpp-dependent, of course)--#endif--#define GLOBAL_VAR(name,value,ty) \-{-# NOINLINE name #-}; \-name :: IORef (ty); \-name = Util.global (value);--#define GLOBAL_VAR_M(name,value,ty) \-{-# NOINLINE name #-}; \-name :: IORef (ty); \-name = Util.globalM (value);---#define SHARED_GLOBAL_VAR(name,accessor,saccessor,value,ty) \-{-# NOINLINE name #-}; \-name :: IORef (ty); \-name = Util.sharedGlobal (value) (accessor); \-foreign import ccall unsafe saccessor \- accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));--#define SHARED_GLOBAL_VAR_M(name,accessor,saccessor,value,ty) \-{-# NOINLINE name #-}; \-name :: IORef (ty); \-name = Util.sharedGlobalM (value) (accessor); \-foreign import ccall unsafe saccessor \- accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));---#define ASSERT(e) if debugIsOn && not (e) then (assertPanic __FILE__ __LINE__) else-#define ASSERT2(e,msg) if debugIsOn && not (e) then (assertPprPanic __FILE__ __LINE__ (msg)) else-#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $---- Examples: Assuming flagSet :: String -> m Bool------ do { c <- getChar; MASSERT( isUpper c ); ... }--- do { c <- getChar; MASSERT2( isUpper c, text "Bad" ); ... }--- do { str <- getStr; ASSERTM( flagSet str ); .. }--- do { str <- getStr; ASSERTM2( flagSet str, text "Bad" ); .. }--- do { str <- getStr; WARNM2( flagSet str, text "Flag is set" ); .. }-#define MASSERT(e) ASSERT(e) return ()-#define MASSERT2(e,msg) ASSERT2(e,msg) return ()-#define ASSERTM(e) do { bool <- e; MASSERT(bool) }-#define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) }-#define WARNM2(e,msg) do { bool <- e; WARN(bool, msg) return () }
compiler/basicTypes/Avail.hs view
@@ -4,7 +4,7 @@ -- (c) The University of Glasgow -- -#include "HsVersions.h"+#include "GhclibHsVersions.h" module Avail ( Avails,
compiler/basicTypes/ConLike.hs view
@@ -24,7 +24,7 @@ , conLikeIsInfix ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/DataCon.hs view
@@ -59,7 +59,7 @@ promoteDataCon ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/Demand.hs view
@@ -59,7 +59,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/Id.hs view
@@ -114,7 +114,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/IdInfo.hs view
@@ -80,7 +80,7 @@ isNeverLevPolyIdInfo ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/Literal.hs view
@@ -47,7 +47,7 @@ , nullAddrLit, rubbishLit, float2DoubleLit, double2FloatLit ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/MkId.hs view
@@ -35,7 +35,7 @@ module PrelRules ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/NameCache.hs view
@@ -20,7 +20,7 @@ import Outputable import PrelNames -#include "HsVersions.h"+#include "GhclibHsVersions.h" {-
compiler/basicTypes/NameEnv.hs view
@@ -32,7 +32,7 @@ depAnal ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/NameSet.hs view
@@ -31,7 +31,7 @@ findUses, duDefs, duUses, allUses ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/PatSyn.hs view
@@ -22,7 +22,7 @@ updatePatSynIds, pprPatSynType ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/RdrName.hs view
@@ -68,7 +68,7 @@ starInfo ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/Unique.hs view
@@ -67,7 +67,7 @@ dataConWorkerUnique, dataConTyRepNameUnique ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" #include "Unique.h" import GhcPrelude
compiler/basicTypes/Var.hs view
@@ -85,7 +85,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/basicTypes/VarSet.hs view
@@ -43,7 +43,7 @@ dVarSetToVarSet, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreArity.hs view
@@ -16,7 +16,7 @@ exprBotStrictness_maybe ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreFVs.hs view
@@ -57,7 +57,7 @@ freeVarsOfAnn ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreMap.hs view
@@ -35,7 +35,7 @@ (>.>), (|>), (|>>), ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreOpt.hs view
@@ -18,7 +18,7 @@ pushCoArg, pushCoValArg, pushCoTyArg, collectBindersPushingCo ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreSubst.hs view
@@ -33,7 +33,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreSyn.hs view
@@ -95,7 +95,7 @@ isBuiltinRule, isLocalRule, isAutoRule, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreTidy.hs view
@@ -12,7 +12,7 @@ tidyExpr, tidyRules, tidyUnfolding ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreUnfold.hs view
@@ -40,7 +40,7 @@ exprIsConApp_maybe, exprIsLiteral_maybe ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/CoreUtils.hs view
@@ -57,7 +57,7 @@ isJoinBind ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/coreSyn/MkCore.hs view
@@ -50,7 +50,7 @@ tYPE_ERROR_ID, aBSENT_SUM_FIELD_ERROR_ID ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/iface/BinFingerprint.hs view
@@ -8,7 +8,7 @@ , putNameLiterally ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/iface/IfaceSyn.hs view
@@ -40,7 +40,7 @@ AltPpr(..), ShowSub(..), ShowHowMuch(..), showToIface, showToHeader ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/iface/IfaceType.hs view
@@ -57,7 +57,7 @@ mkIfaceTySubst, substIfaceTyVar, substIfaceAppArgs, inDomIfaceTySubst ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/iface/ToIface.hs view
@@ -43,7 +43,7 @@ , toIfaceVar ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/CmdLineParser.hs view
@@ -24,7 +24,7 @@ deprecate ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/DriverPhases.hs view
@@ -38,7 +38,7 @@ isSourceFilename ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/DynFlags.hs view
@@ -245,7 +245,7 @@ CfgWeights(..), backendMaintainsCfg ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/ErrUtils.hs view
@@ -58,7 +58,7 @@ traceCmd ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/HeaderInfo.hs view
@@ -18,7 +18,7 @@ , optionsErrorMsgs, checkProcessArgsResult ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/HscTypes.hs view
@@ -151,7 +151,7 @@ mkCompleteMatchMap, extendCompleteMatchMap ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/PackageConfig.hs view
@@ -28,7 +28,7 @@ pprPackageConfig, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/Packages.hs view
@@ -63,7 +63,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/main/SysTools/BaseDir.hs view
@@ -17,7 +17,7 @@ , tryFindTopDir ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/parser/Ctype.hs view
@@ -14,7 +14,7 @@ , hexDigit, octDecDigit ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/parser/RdrHsSyn.hs view
@@ -142,7 +142,7 @@ import qualified Data.Monoid as Monoid import Data.Data ( dataTypeOf, fromConstr, dataTypeConstrs ) -#include "HsVersions.h"+#include "GhclibHsVersions.h" {- **********************************************************************
compiler/prelude/KnownUniques.hs view
@@ -24,7 +24,7 @@ , mkCTupleDataConUnique ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/prelude/PrelNames.hs view
@@ -155,7 +155,7 @@ -- So many that we export them all ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/prelude/PrelRules.hs view
@@ -23,7 +23,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/prelude/PrimOp.hs view
@@ -23,7 +23,7 @@ PrimCall(..) ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/prelude/TysPrim.hs view
@@ -87,7 +87,7 @@ #include "primop-vector-tys-exports.hs-incl" ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/prelude/TysWiredIn.hs view
@@ -127,7 +127,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/simplCore/OccurAnal.hs view
@@ -17,7 +17,7 @@ occurAnalysePgm, occurAnalyseExpr, occurAnalyseExpr_NoBinderSwap ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/simplStg/RepType.hs view
@@ -21,7 +21,7 @@ slotPrimRep, primRepSlot ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/specialise/Rules.hs view
@@ -26,7 +26,7 @@ lookupRule, mkRule, roughTopNames ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/typecheck/Constraint.hs view
@@ -71,7 +71,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/typecheck/TcEvidence.hs view
@@ -47,7 +47,7 @@ tcCoercionRole, unwrapIP, wrapIP ) where-#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/typecheck/TcOrigin.hs view
@@ -21,7 +21,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/typecheck/TcRnTypes.hs view
@@ -82,7 +82,7 @@ lookupRoleAnnot, getRoleAnnots ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/typecheck/TcType.hs view
@@ -187,7 +187,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" -- friends: import GhcPrelude
compiler/types/Class.hs view
@@ -21,7 +21,7 @@ isAbstractClass, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/CoAxiom.hs view
@@ -49,7 +49,7 @@ import Data.Array import Data.List ( mapAccumL ) -#include "HsVersions.h"+#include "GhclibHsVersions.h" {- Note [Coercion axiom branches]
compiler/types/Coercion.hs view
@@ -114,7 +114,7 @@ simplifyArgsWorker ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import {-# SOURCE #-} ToIface (toIfaceTyCon, tidyToIfaceTcArgs)
compiler/types/FamInstEnv.hs view
@@ -37,7 +37,7 @@ flattenTys ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/InstEnv.hs view
@@ -29,7 +29,7 @@ isOverlappable, isOverlapping, isIncoherent ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/OptCoercion.hs view
@@ -4,7 +4,7 @@ module OptCoercion ( optCoercion, checkAxInstCo ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/TyCoRep.hs view
@@ -65,7 +65,7 @@ typeSize, coercionSize, provSize ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude @@ -273,7 +273,7 @@ checker can handle it; see #16185 For now we use the CPP macro #define FunTy FFunTy _- (see HsVersions.h) to allow pattern matching on a+ (see GhclibHsVersions.h) to allow pattern matching on a (positional) FunTy constructor. {-# COMPLETE FunTy, TyVarTy, AppTy, TyConApp
compiler/types/TyCoSubst.hs view
@@ -50,7 +50,7 @@ checkValidSubst, isValidTCvSubst, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/TyCon.hs view
@@ -131,7 +131,7 @@ ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/Type.hs view
@@ -214,7 +214,7 @@ isKindLevPoly ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/types/Unify.hs view
@@ -24,7 +24,7 @@ liftCoMatch ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/Binary.hs view
@@ -62,7 +62,7 @@ putDictionary, getDictionary, putFS, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/Digraph.hs view
@@ -25,7 +25,7 @@ EdgeType(..), classifyEdges ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" ------------------------------------------------------------------------------ -- A version of the graph algorithms described in:
compiler/utils/FastFunctions.hs view
@@ -8,7 +8,7 @@ inlinePerformIO, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude ()
compiler/utils/FastString.hs view
@@ -95,7 +95,7 @@ lengthPS ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude as Prelude
compiler/utils/Fingerprint.hs view
@@ -21,7 +21,7 @@ getFileHash ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/ListSetOps.hs view
@@ -21,7 +21,7 @@ getNth ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/Pair.hs view
@@ -8,7 +8,7 @@ module Pair ( Pair(..), unPair, toPair, swap, pLiftFst, pLiftSnd ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/PlainPanic.hs view
@@ -25,7 +25,7 @@ , progName ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import Config import Exception
compiler/utils/StringBuffer.hs view
@@ -44,7 +44,7 @@ parseUnsignedInteger, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
compiler/utils/Util.hs view
@@ -128,7 +128,7 @@ overrideWith, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude
ghc-lib-parser.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.22 build-type: Simple name: ghc-lib-parser-version: 8.10.1.20200412+version: 8.10.1.20200518 license: BSD3 license-file: LICENSE category: Development@@ -48,9 +48,9 @@ includes/MachDeps.h includes/stg/MachRegs.h includes/CodeGen.Platform.hs- compiler/HsVersions.h+ compiler/GhclibHsVersions.h compiler/Unique.h-tested-with: GHC==8.8.2, GHC==8.6.5, GHC==8.4.4+tested-with: GHC==8.10.1, GHC==8.8.2, GHC==8.6.5, GHC==8.4.4 source-repository head type: git location: git@github.com:digital-asset/ghc-lib.git