Skip to content
This repository
Browse code

Disable monomorphism restriction by default

  • Loading branch information...
commit af75b33aa0bb98fce2018fad298f26112f339e53 1 parent b1d2a99
Chris Smith authored March 07, 2012

Showing 1 changed file with 3 additions and 1 deletion. Show diff stats Hide diff stats

  1. 4  src/Source.hs
4  src/Source.hs
@@ -181,7 +181,9 @@ compile vname tname fn = doWithErrors $ do
181 181
                             GHC.ExposePackage "gloss-web-adapters",
182 182
                             GHC.ExposePackage "random" ]
183 183
         }
184  
-    GHC.setSessionDynFlags (GHC.dopt_set dflags' GHC.Opt_PackageTrust)
  184
+    let dflags''  = GHC.xopt_unset dflags'  GHC.Opt_MonomorphismRestriction
  185
+    let dflags''' = GHC.dopt_set   dflags'' GHC.Opt_PackageTrust
  186
+    GHC.setSessionDynFlags dflags'''
185 187
     target <- GHC.guessTarget fn Nothing
186 188
     GHC.setTargets [target]
187 189
     r <- fmap GHC.succeeded (GHC.load GHC.LoadAllTargets)

0 notes on commit af75b33

Please sign in to comment.
Something went wrong with that request. Please try again.