mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-09-11 11:05:30 +03:00
Ignore the PATH fix if it is not set
This commit is contained in:
parent
38a6febbee
commit
05220f2105
@ -1,8 +1,10 @@
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
module Stack where
|
||||
|
||||
import Development.Shake
|
||||
import Development.Shake.Command
|
||||
import Development.Shake.FilePath
|
||||
import Control.Exception
|
||||
import Control.Monad
|
||||
import Data.List
|
||||
import System.Directory ( copyFile )
|
||||
@ -102,7 +104,9 @@ stackBuildFailMsg =
|
||||
-- |Run actions without the stack cached binaries
|
||||
withoutStackCachedBinaries :: Action a -> Action a
|
||||
withoutStackCachedBinaries action = do
|
||||
mbPath <- liftIO (lookupEnv "PATH")
|
||||
mbPath <- liftIO (catch
|
||||
(lookupEnv "PATH")
|
||||
(\(_ :: SomeException) -> return Nothing))
|
||||
|
||||
case (mbPath, isRunFromStack) of
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user