@@ -1,7 +1,6 @@
11{-# LANGUAGE FlexibleContexts #-}
22{-# LANGUAGE LambdaCase #-}
33{-# LANGUAGE MultiParamTypeClasses #-}
4−{-# LANGUAGE MultiWayIf #-}
54{-# LANGUAGE OverloadedStrings #-}
65{-# LANGUAGE ScopedTypeVariables #-}
76{-# LANGUAGE TupleSections #-}
@@ -102,7 +101,7 @@ instance AsProcessFailure ProcessFailure where
102101 asProcessFailure = id
103102
104103readProcessAndLogStderr
105− :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadFail m, MonadMask m)
104+ :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadMask m)
106105 => Severity -> ProcessSpec -> m Text
107106readProcessAndLogStderr sev process = do
108107 (out, _err) <- withProcess process $ \_out err -> do
@@ -110,7 +109,7 @@ readProcessAndLogStderr sev process = do
110109 liftIO $ T.decodeUtf8With lenientDecode <$> BS.hGetContents out
111110
112111readProcessJSONAndLogStderr
113− :: (Aeson.FromJSON a, MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadFail m, MonadMask m)
112+ :: (Aeson.FromJSON a, MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadMask m)
114113 => Severity -> ProcessSpec -> m a
115114readProcessJSONAndLogStderr sev process = do
116115 (out, _err) <- withProcess process $ \_out err -> do
@@ -123,7 +122,7 @@ readProcessJSONAndLogStderr sev process = do
123122 throwError $ review asProcessFailure $ ProcessFailure (Process.cmdspec $ _processSpec_createProcess process) 0
124123
125124readCreateProcessWithExitCode
126− :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e)
125+ :: (MonadIO m, CliLog m)
127126 => ProcessSpec -> m (ExitCode, String, String)
128127readCreateProcessWithExitCode procSpec = do
129128 process <- mkCreateProcess procSpec
@@ -159,7 +158,7 @@ readProcessAndLogOutput (sev_out, sev_err) process = do
159158-- which case it is advisable to call it with a non-Error severity for stderr, like
160159-- `callProcessAndLogOutput (Debug, Debug)`.
161160callProcessAndLogOutput
162− :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadFail m, MonadMask m)
161+ :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadMask m)
163162 => (Severity, Severity) -> ProcessSpec -> m ()
164163callProcessAndLogOutput (sev_out, sev_err) process =
165164 void $ withProcess process $ \out err -> do
@@ -212,7 +211,7 @@ callCommand cmd = do
212211 liftIO $ Process.callCommand cmd
213212
214213withProcess
215− :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadFail m, MonadMask m)
214+ :: (MonadIO m, CliLog m, CliThrow e m, AsProcessFailure e, MonadMask m)
216215 => ProcessSpec -> (Handle -> Handle -> m ()) -> m (Handle, Handle)
217216withProcess process f =
218217 bracketOnError
@@ -229,7 +228,7 @@ withProcess process f =
229228
230229-- | Runs a process to completion failing if it does not exit cleanly.
231230runProcess_
232− :: (MonadIO m, CliLog m, CliThrow e m, MonadMask m, AsProcessFailure e, MonadFail m)
231+ :: (MonadIO m, CliLog m, CliThrow e m, MonadMask m, AsProcessFailure e)
233232 => ProcessSpec -> m ()
234233runProcess_ process =
235234 bracketOnError