haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-17 15:11:41 +03:00
Code Issues Projects Releases Wiki Activity

Ghc lib 0.20190531 (#1486)

Browse Source 
* 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:
Shayne Fletcher 2019-06-01 06:48:49 -04:00 committed by GitHub
parent e370589e77
commit 3769dd41ca
1 changed files with 36 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
src/Development/IDE/UtilGHC.hs
View File

@ -22,10 +22,13 @@ import Fingerprint
import GHC
import GhcMonad
import GhcPlugins
import Platform
import Data.IORef
import Control.Exception
import FileCleanup
import Platform
#ifndef GHC_STABLE
import ToolSettings
#endif
----------------------------------------------------------------------
-- GHC setup
@ -62,25 +65,40 @@ runGhcEnv env act = do
cleanTempFiles dflags
cleanTempDirs dflags
-- Fake DynFlags which are mostly undefined, but define enough to do a little bit
-- Fake DynFlags which are mostly undefined, but define enough to do a
-- little bit.
fakeDynFlags :: DynFlags
fakeDynFlags = defaultDynFlags settings ([], [])
where
settings = Settings
{sTargetPlatform = Platform
{platformWordSize = 8
,platformOS = OSUnknown
,platformUnregisterised = True
}
,sPlatformConstants = PlatformConstants
{pc_DYNAMIC_BY_DEFAULT = False
,pc_WORD_SIZE = 8
}
#ifndef GHC_STABLE
,sIntegerLibraryType = IntegerSimple
{ sTargetPlatform = platform
, sPlatformConstants = platformConstants
#ifdef GHC_STABLE
, sProgramName = "ghc"
, sProjectVersion = cProjectVersion
, sOpt_P_fingerprint = fingerprint0
#else
, sGhcNameVersion = GhcNameVersion
{ ghcNameVersion_programName = "ghc"
, ghcNameVersion_projectVersion = cProjectVersion
}
, sFileSettings = FileSettings
{ -- fileSettings_tmpDir = "."
}
, sPlatformMisc = PlatformMisc
{ platformMisc_integerLibraryType = IntegerSimple
}
, sToolSettings = ToolSettings
{ toolSettings_opt_P_fingerprint = fingerprint0
}
#endif
,sProjectVersion = cProjectVersion
,sProgramName = "ghc"
,sOpt_P_fingerprint = fingerprint0
}
}
platform = Platform
{ platformWordSize=8
, platformOS=OSUnknown
, platformUnregisterised=True
}
platformConstants = PlatformConstants
{ pc_DYNAMIC_BY_DEFAULT=False
, pc_WORD_SIZE=8
}