Use cabal-helper to get buildPlatform
This commit is contained in:
parent
55216e4af3
commit
f3b4da7a0e
@ -26,13 +26,13 @@ import Data.List
|
|||||||
import Data.Char
|
import Data.Char
|
||||||
import Data.Maybe
|
import Data.Maybe
|
||||||
import Data.Traversable (traverse)
|
import Data.Traversable (traverse)
|
||||||
|
import Distribution.Helper (buildPlatform)
|
||||||
import System.Directory
|
import System.Directory
|
||||||
import System.FilePath
|
import System.FilePath
|
||||||
import System.IO.Unsafe
|
import System.IO.Unsafe
|
||||||
|
|
||||||
import Language.Haskell.GhcMod.Types
|
import Language.Haskell.GhcMod.Types
|
||||||
import Language.Haskell.GhcMod.Error
|
import Language.Haskell.GhcMod.Error
|
||||||
import Language.Haskell.GhcMod.Utils hiding (dropWhileEnd)
|
|
||||||
import Language.Haskell.GhcMod.Caching
|
import Language.Haskell.GhcMod.Caching
|
||||||
import qualified Language.Haskell.GhcMod.Utils as U
|
import qualified Language.Haskell.GhcMod.Utils as U
|
||||||
|
|
||||||
@ -185,8 +185,7 @@ ghcSandboxPkgDbDir =
|
|||||||
cabalBuildPlatform ++ "-ghc-" ++ cProjectVersion ++ "-packages.conf.d"
|
cabalBuildPlatform ++ "-ghc-" ++ cProjectVersion ++ "-packages.conf.d"
|
||||||
|
|
||||||
cabalBuildPlatform :: String
|
cabalBuildPlatform :: String
|
||||||
cabalBuildPlatform = dropWhileEnd isSpace $ unsafePerformIO $
|
cabalBuildPlatform = unsafePerformIO $ buildPlatform
|
||||||
readLibExecProcess' "cabal-helper-wrapper" ["print-build-platform"]
|
|
||||||
|
|
||||||
packageCache :: String
|
packageCache :: String
|
||||||
packageCache = "package.cache"
|
packageCache = "package.cache"
|
||||||
|
Loading…
Reference in New Issue
Block a user