mirror of
https://github.com/haskell/ghcide.git
synced 2024-12-17 23:22:04 +03:00
Ghc lib 0.20190531 (#1486)
* Upgrade to ghc-lib-0.20190531 * Listen up Wally, Remove redundant commented code! * Argh! WhattamistakeAtomakeA! * Whitespace to force Azure pipeline to reconsider ignoring this PR * Repackage ghc-lib, update SHAs and push again * Refer to a non-existent release as an experiment * Put the release number back * Fix build of haskell-ide-core-public
This commit is contained in:
parent
e370589e77
commit
3769dd41ca
@ -22,10 +22,13 @@ import Fingerprint
|
|||||||
import GHC
|
import GHC
|
||||||
import GhcMonad
|
import GhcMonad
|
||||||
import GhcPlugins
|
import GhcPlugins
|
||||||
import Platform
|
|
||||||
import Data.IORef
|
import Data.IORef
|
||||||
import Control.Exception
|
import Control.Exception
|
||||||
import FileCleanup
|
import FileCleanup
|
||||||
|
import Platform
|
||||||
|
#ifndef GHC_STABLE
|
||||||
|
import ToolSettings
|
||||||
|
#endif
|
||||||
|
|
||||||
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
||||||
-- GHC setup
|
-- GHC setup
|
||||||
@ -62,25 +65,40 @@ runGhcEnv env act = do
|
|||||||
cleanTempFiles dflags
|
cleanTempFiles dflags
|
||||||
cleanTempDirs dflags
|
cleanTempDirs dflags
|
||||||
|
|
||||||
|
-- Fake DynFlags which are mostly undefined, but define enough to do a
|
||||||
-- Fake DynFlags which are mostly undefined, but define enough to do a little bit
|
-- little bit.
|
||||||
fakeDynFlags :: DynFlags
|
fakeDynFlags :: DynFlags
|
||||||
fakeDynFlags = defaultDynFlags settings ([], [])
|
fakeDynFlags = defaultDynFlags settings ([], [])
|
||||||
where
|
where
|
||||||
settings = Settings
|
settings = Settings
|
||||||
{sTargetPlatform = Platform
|
{ sTargetPlatform = platform
|
||||||
{platformWordSize = 8
|
, sPlatformConstants = platformConstants
|
||||||
,platformOS = OSUnknown
|
#ifdef GHC_STABLE
|
||||||
,platformUnregisterised = True
|
, sProgramName = "ghc"
|
||||||
|
, sProjectVersion = cProjectVersion
|
||||||
|
, sOpt_P_fingerprint = fingerprint0
|
||||||
|
#else
|
||||||
|
, sGhcNameVersion = GhcNameVersion
|
||||||
|
{ ghcNameVersion_programName = "ghc"
|
||||||
|
, ghcNameVersion_projectVersion = cProjectVersion
|
||||||
}
|
}
|
||||||
,sPlatformConstants = PlatformConstants
|
, sFileSettings = FileSettings
|
||||||
{pc_DYNAMIC_BY_DEFAULT = False
|
{ -- fileSettings_tmpDir = "."
|
||||||
,pc_WORD_SIZE = 8
|
}
|
||||||
|
, sPlatformMisc = PlatformMisc
|
||||||
|
{ platformMisc_integerLibraryType = IntegerSimple
|
||||||
|
}
|
||||||
|
, sToolSettings = ToolSettings
|
||||||
|
{ toolSettings_opt_P_fingerprint = fingerprint0
|
||||||
}
|
}
|
||||||
#ifndef GHC_STABLE
|
|
||||||
,sIntegerLibraryType = IntegerSimple
|
|
||||||
#endif
|
#endif
|
||||||
,sProjectVersion = cProjectVersion
|
}
|
||||||
,sProgramName = "ghc"
|
platform = Platform
|
||||||
,sOpt_P_fingerprint = fingerprint0
|
{ platformWordSize=8
|
||||||
|
, platformOS=OSUnknown
|
||||||
|
, platformUnregisterised=True
|
||||||
|
}
|
||||||
|
platformConstants = PlatformConstants
|
||||||
|
{ pc_DYNAMIC_BY_DEFAULT=False
|
||||||
|
, pc_WORD_SIZE=8
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user