mirror of
https://github.com/CrystalSplitter/ghcitui.git
synced 2024-09-11 10:55:29 +03:00
Simplify execMuted
This commit is contained in:
parent
6339be9b46
commit
586718e49a
@ -254,9 +254,7 @@ exec cmd state@InterpState{_ghci} = do
|
||||
|
||||
-- | 'exec', but throw out any messages.
|
||||
execMuted :: (Monoid a) => T.Text -> InterpState a -> ExceptT DaemonError IO (InterpState a)
|
||||
execMuted cmd state = do
|
||||
(newState, _) <- exec cmd state
|
||||
pure newState
|
||||
execMuted cmd state = fst <$> exec cmd state
|
||||
|
||||
-- | 'exec', but fully clean the message from prompt.
|
||||
execCleaned
|
||||
|
Loading…
Reference in New Issue
Block a user