@@ -36,7 +36,7 @@ import System.FilePath
3636import System.Process (proc)
3737import System.IO.Temp (withSystemTempDirectory)
3838import System.Which (staticWhich)
39−import Text.ShellEscape (bash)
39+import Text.ShellEscape (bash, bytes)
4040
4141import Obelisk.App (MonadObelisk, ObeliskT)
4242import Obelisk.CliApp
@@ -234,7 +234,8 @@ runGhcid dotGhci mcmd = callCommand $ unwords $ $(staticWhich "ghcid") : opts
234234 opts =
235235 [ "-W"
236236 --TODO: The decision of whether to use -fwarn-redundant-constraints should probably be made by the user
237− , "--command='ghci -Wall -ignore-dot-ghci -fwarn-redundant-constraints " <> unwords (makeBaseGhciOptions dotGhci) <> "' "
237+ , "--command=" <> (BSU.toString $ bytes $ bash $ BSU.fromString $
238+ "ghci -Wall -ignore-dot-ghci -fwarn-redundant-constraints " <> unwords (makeBaseGhciOptions dotGhci))
238239 , "--reload=config"
239240 , "--outputfile=ghcid-output.txt"
240241 ] <> testCmd