diff --git a/exe/IHP/IDE/DevServer.hs b/exe/IHP/IDE/DevServer.hs index a309d01a1..572bda68b 100644 --- a/exe/IHP/IDE/DevServer.hs +++ b/exe/IHP/IDE/DevServer.hs @@ -213,7 +213,7 @@ stopFileWatcher _ = pure () startGHCI :: IO ManagedProcess startGHCI = do - let args = ["-threaded", "-fomit-interface-pragmas", "-j", "-O0", "+RTS", "-A512m", "-n4m", "-H512m", "-G3", "-qg"] + let args = ["-threaded", "-fomit-interface-pragmas", "-j", "-O0", "+RTS", "-A512m", "-n4m", "-H512m", "-G3", "-qg", "-N"] createManagedProcess (Process.proc "ghci" args) { Process.std_in = Process.CreatePipe , Process.std_out = Process.CreatePipe diff --git a/ihp.cabal b/ihp.cabal index e0fc3f293..439a69b86 100644 --- a/ihp.cabal +++ b/ihp.cabal @@ -269,6 +269,7 @@ executable RunDevServer build-depends: IHPFramework hs-source-dirs: exe main-is: IHP/IDE/DevServer.hs + ghc-options: -funfolding-use-threshold=16 -optc-O3 -funbox-strict-fields -fconstraint-solver-iterations=100 -fexpose-all-unfoldings -flate-dmd-anal -fspec-constr-keen -fspecialise-aggressively -fstatic-argument-transformation -fmax-worker-args=200 -threaded -haddock -fmax-worker-args=200 -fstatic-argument-transformation -with-rtsopts=-A512m -with-rtsopts=-n4m -with-rtsopts=-N executable new-application import: shared-properties diff --git a/lib/IHP/Makefile.dist b/lib/IHP/Makefile.dist index 0e55917c7..9475729a5 100644 --- a/lib/IHP/Makefile.dist +++ b/lib/IHP/Makefile.dist @@ -57,7 +57,7 @@ GHC_EXTENSIONS+= -XDerivingVia GHC_EXTENSIONS+= -Werror=missing-fields GHC_EXTENSIONS+= -fwarn-incomplete-patterns -GHC_RTS_FLAGS := -A256m -n2m +GHC_RTS_FLAGS := -A256m -n2m -N GHC_OPTIONS=-threaded -i. -ibuild -iConfig -iIHP GHC_OPTIONS+= ${GHC_EXTENSIONS}