[respect -fno-monomorphism-restriction flag in OPTIONS pragma
John Meacham <john@repetae.net>**20100731090828
 Ignore-this: ef6f90e93c0b13460d1784b176aee316
] hunk ./src/FrontEnd/Tc/Main.hs 558
-    sc' <- if restricted [decl] then do
+    mr <- flagOpt FO.MonomorphismRestriction
+    sc' <- if restricted mr [decl] then do
hunk ./src/FrontEnd/Tc/Main.hs 591
-    scs' <- if restricted bs then do
+    mr <- flagOpt FO.MonomorphismRestriction
+    scs' <- if restricted mr bs then do
hunk ./src/FrontEnd/Tc/Main.hs 762
-restricted   :: [HsDecl] -> Bool
-restricted bs = any isHsActionDecl bs || (fopts FO.MonomorphismRestriction && any isSimpleDecl bs) where
+restricted :: Bool -> [HsDecl] -> Bool
+restricted monomorphismRestriction bs = any isHsActionDecl bs || (monomorphismRestriction && any isSimpleDecl bs) where
hunk ./src/FrontEnd/Tc/Monad.hs 81
-import Options