CrystalSplitter/ghcitui
1
1
Fork 0
mirror of https://github.com/CrystalSplitter/ghcitui.git synced 2024-09-11 10:55:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Simplify execMuted

Browse Source
This commit is contained in:
CrystalSplitter 2023-12-09 18:04:54 -08:00 committed by Jordan R AW
parent 6339be9b46
commit 586718e49a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Ghcid/Daemon.hs
View File

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