haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-25 19:21:34 +03:00
Code Issues Projects Releases Wiki Activity

reinstantiate fakeDynFlags

Browse Source
This commit is contained in:
Moritz Kiefer 2020-02-11 12:10:53 +01:00
parent 4e89d4574d
commit e8cd55e6c2
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
src/Development/IDE/GHC/Util.hs
View File

@ -1,6 +1,8 @@
-- Copyright (c) 2019 The DAML Authors. All rights reserved. -- Copyright (c) 2019 The DAML Authors. All rights reserved.
-- SPDX-License-Identifier: Apache-2.0 -- SPDX-License-Identifier: Apache-2.0
{-# LANGUAGE CPP #-}
#include "ghc-api-version.h"
-- | General utility functions, mostly focused around GHC operations. -- | General utility functions, mostly focused around GHC operations.
module Development.IDE.GHC.Util( module Development.IDE.GHC.Util(
-- * HcsEnv and environment -- * HcsEnv and environment
@ -41,6 +43,11 @@ import GHC.IO.Encoding
import GHC.IO.Exception import GHC.IO.Exception
import GHC.IO.Handle.Types import GHC.IO.Handle.Types
import GHC.IO.Handle.Internals import GHC.IO.Handle.Internals
#if MIN_GHC_API_VERSION(8,10,0)
#else
import Config
import Platform
#endif
import Data.Unique import Data.Unique
import Development.Shake.Classes import Development.Shake.Classes
import qualified Data.Text as T import qualified Data.Text as T
@ -85,7 +92,37 @@ textToStringBuffer = stringToStringBuffer . T.unpack
-- | Pretty print a GHC value using 'unsafeGlobalDynFlags '. -- | Pretty print a GHC value using 'unsafeGlobalDynFlags '.
prettyPrint :: Outputable a => a -> String prettyPrint :: Outputable a => a -> String
prettyPrint = showSDoc unsafeGlobalDynFlags . ppr prettyPrint = showSDoc fakeDynFlags . ppr
-- | A 'DynFlags' value where most things are undefined. It's sufficient to call pretty printing,
-- but not much else.
fakeDynFlags :: DynFlags
#if MIN_GHC_API_VERSION(8,10,0)
fakeDynFlags = unsafeGlobalDynFlags
#else
fakeDynFlags = defaultDynFlags
settings
mempty
where
settings = Settings
{ sTargetPlatform = platform
, sPlatformConstants = platformConstants
, sProgramName = "ghc"
, sProjectVersion = cProjectVersion
#if MIN_GHC_API_VERSION(8,6,0)
, sOpt_P_fingerprint = fingerprint0
#endif
}
platform = Platform
{ platformWordSize=8
, platformOS=OSUnknown
, platformUnregisterised=True
}
platformConstants = PlatformConstants
{ pc_DYNAMIC_BY_DEFAULT=False
, pc_WORD_SIZE=8
}
#endif
-- | Run a 'Ghc' monad value using an existing 'HscEnv'. Sets up and tears down all the required -- | Run a 'Ghc' monad value using an existing 'HscEnv'. Sets up and tears down all the required
-- pieces, but designed to be more efficient than a standard 'runGhc'. -- pieces, but designed to be more efficient than a standard 'runGhc'.