Fix build on windows and stack
This commit is contained in:
parent
191f49adfc
commit
09a8a0bda0
@ -205,9 +205,11 @@ run RunOptions{..} runAppState runLogger = runRUN runAppState (do
|
||||
[] -> liftIO $ putStr tmp
|
||||
(cmd:args) -> do
|
||||
newEnv <- liftIO $ addToPath tmp
|
||||
if isWindows
|
||||
then liftE $ lEM @_ @'[ProcessError] $ exec cmd args Nothing (Just newEnv)
|
||||
else liftIO $ SPP.executeFile cmd True args (Just newEnv)
|
||||
#ifndef IS_WINDOWS
|
||||
liftIO $ SPP.executeFile cmd True args (Just newEnv)
|
||||
#else
|
||||
liftE $ lEM @_ @'[ProcessError] $ exec cmd args Nothing (Just newEnv)
|
||||
#endif
|
||||
pure ()
|
||||
) >>= \case
|
||||
VRight _ -> do
|
||||
|
@ -267,6 +267,9 @@ executable ghcup
|
||||
|
||||
if os(windows)
|
||||
cpp-options: -DIS_WINDOWS
|
||||
else
|
||||
build-depends:
|
||||
, unix ^>=2.7
|
||||
|
||||
if flag(no-exe)
|
||||
buildable: False
|
||||
|
Loading…
Reference in New Issue
Block a user