Suppress banner when running with --ide-mode-socket option

This commit is contained in:
Kamil Shakirov 2020-08-20 14:18:12 +06:00
parent 310b7a007c
commit 899d425bbf

View File

@ -52,6 +52,9 @@ preOptions (ExecFn _ :: opts)
preOptions (IdeMode :: opts) preOptions (IdeMode :: opts)
= do setSession (record { nobanner = True } !getSession) = do setSession (record { nobanner = True } !getSession)
preOptions opts preOptions opts
preOptions (IdeModeSocket _ :: opts)
= do setSession (record { nobanner = True } !getSession)
preOptions opts
preOptions (CheckOnly :: opts) preOptions (CheckOnly :: opts)
= do setSession (record { nobanner = True } !getSession) = do setSession (record { nobanner = True } !getSession)
preOptions opts preOptions opts