add 2 more flags when in safe mode

input-output-hk · Aug 17, 2018 · c412562 · c412562
1 parent ead549f
commit c412562
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/src/launcher/Main.hs b/tools/src/launcher/Main.hs
@@ -666,7 +666,7 @@ runWallet
 runWallet shouldLog nd nLogPath lo = do
     safeMode <- readSafeMode lo
     let wpath = ndPath nd
-        wargs = (ndArgs nd) <> ["--safe-mode" | safeMode ]
+        wargs = (ndArgs nd) <> (if safeMode then [ "--safe-mode", "--disable-gpu", "--disable-d3d11" ] else [])
         mWLogPath = ndLogPath nd
     logNotice "Starting the wallet"
     phvar <- newEmptyMVar