@@ -36,7 +36,7 @@ import System.FilePath
36import System.Process (proc)
36import System.Process (proc)
37import System.IO.Temp (withSystemTempDirectory)
37import System.IO.Temp (withSystemTempDirectory)
38import System.Which (staticWhich)
38import System.Which (staticWhich)
39−import Text.ShellEscape (bash)
39+import Text.ShellEscape (bash, bytes)
41import Obelisk.App (MonadObelisk, ObeliskT)
41import Obelisk.App (MonadObelisk, ObeliskT)
42import Obelisk.CliApp
42import Obelisk.CliApp
@@ -234,7 +234,8 @@ runGhcid dotGhci mcmd = callCommand $ unwords $ $(staticWhich "ghcid") : opts
236 --TODO: The decision of whether to use -fwarn-redundant-constraints should probably be made by the user
236 --TODO: The decision of whether to use -fwarn-redundant-constraints should probably be made by the user
237+ , "--command=" <> (BSU.toString $ bytes $ bash $ BSU.fromString $
237− , "--command='ghci -Wall -ignore-dot-ghci -fwarn-redundant-constraints " <> unwords (makeBaseGhciOptions dotGhci) <> "' "
238+ "ghci -Wall -ignore-dot-ghci -fwarn-redundant-constraints " <> unwords (makeBaseGhciOptions dotGhci))
238 , "--reload=config"
239 , "--reload=config"
239 , "--outputfile=ghcid-output.txt"
240 , "--outputfile=ghcid-output.txt"
240 ] <> testCmd
241 ] <> testCmd