Use cabal-helper to get `buildPlatform`

This commit is contained in:
Daniel Gröber 2015-04-12 02:39:55 +02:00
parent 55216e4af3
commit f3b4da7a0e
1 changed files with 2 additions and 3 deletions

View File

@ -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"