Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
authorIan Lynagh <igloo@earth.li>
Wed, 13 Jun 2012 12:14:41 +0000 (13:14 +0100)
committerIan Lynagh <igloo@earth.li>
Wed, 13 Jun 2012 12:14:41 +0000 (13:14 +0100)
Fix conflicts in:
compiler/main/DynFlags.hs

1  2 
compiler/ghci/ByteCodeGen.lhs
compiler/main/DynFlags.hs
compiler/main/HscMain.hs
compiler/main/HscTypes.lhs
compiler/parser/Lexer.x
compiler/rename/RnExpr.lhs
ghc/InteractiveUI.hs

Simple merge
@@@ -377,18 -373,15 +377,18 @@@ data SafeHaskellMod
     | Sf_Unsafe
     | Sf_Trustworthy
     | Sf_Safe
-    | Sf_SafeInfered
+    | Sf_SafeInferred
     deriving (Eq)
  
 +instance Show SafeHaskellMode where
 +    show Sf_None        = "None"
 +    show Sf_Unsafe      = "Unsafe"
 +    show Sf_Trustworthy = "Trustworthy"
 +    show Sf_Safe        = "Safe"
 +    show Sf_SafeInfered = "Safe-Infered"
 +
  instance Outputable SafeHaskellMode where
 -    ppr Sf_None         = ptext $ sLit "None"
 -    ppr Sf_Unsafe       = ptext $ sLit "Unsafe"
 -    ppr Sf_Trustworthy  = ptext $ sLit "Trustworthy"
 -    ppr Sf_Safe         = ptext $ sLit "Safe"
 -    ppr Sf_SafeInferred = ptext $ sLit "Safe-Inferred"
 +    ppr = text . show
  
  data ExtensionFlag
     = Opt_Cpp
@@@ -1190,14 -1168,14 +1189,14 @@@ safeImplicitImpsReq d = safeLanguageOn 
  -- want to export this functionality from the module but do want to export the
  -- type constructors.
  combineSafeFlags :: SafeHaskellMode -> SafeHaskellMode -> DynP SafeHaskellMode
- combineSafeFlags a b | a == Sf_SafeInfered = return b
-                      | b == Sf_SafeInfered = return a
-                      | a == Sf_None        = return b
-                      | b == Sf_None        = return a
-                      | a == b              = return a
-                      | otherwise           = addErr errm >> return (panic errm)
+ combineSafeFlags a b | a == Sf_SafeInferred = return b
+                      | b == Sf_SafeInferred = return a
+                      | a == Sf_None         = return b
+                      | b == Sf_None         = return a
+                      | a == b               = return a
+                      | otherwise            = addErr errm >> return (panic errm)
      where errm = "Incompatible Safe Haskell flags! ("
 -                    ++ showPpr a ++ ", " ++ showPpr b ++ ")"
 +                    ++ show a ++ ", " ++ show b ++ ")"
  
  -- | A list of unsafe flags under Safe Haskell. Tuple elements are:
  --     * name of the flag
@@@ -926,9 -925,9 +926,9 @@@ hscCheckSafeImports tcg_env = d
                -- user defined RULES, so not safe or already unsafe
              | safeInferOn dflags && not (null $ tcg_rules tcg_env') ||
                safeHaskell dflags == Sf_None
 -            -> wipeTrust tcg_env' $ warns (tcg_rules tcg_env')
 +            -> wipeTrust tcg_env' $ warns dflags (tcg_rules tcg_env')
  
-               -- trustworthy OR safe infered with no RULES
+               -- trustworthy OR safe inferred with no RULES
              | otherwise
              -> return tcg_env'
  
Simple merge
Simple merge
Simple merge
Simple merge