Commit 125aa2b8 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan Committed by Marge Bot
Browse files

Remove leftover comment in tcRnModule', redundant bind

The code for the comment was moved in dc8c03b2 but the comment was
forgotten.
parent c409961a
Pipeline #18467 failed with stages
in 484 minutes and 8 seconds
...@@ -519,7 +519,7 @@ tcRnModule' sum save_rn_syntax mod = do ...@@ -519,7 +519,7 @@ tcRnModule' sum save_rn_syntax mod = do
let allSafeOK = safeInferred dflags && tcSafeOK let allSafeOK = safeInferred dflags && tcSafeOK
-- end of the safe haskell line, how to respond to user? -- end of the safe haskell line, how to respond to user?
res <- if not (safeHaskellOn dflags) if not (safeHaskellOn dflags)
|| (safeInferOn dflags && not allSafeOK) || (safeInferOn dflags && not allSafeOK)
-- if safe Haskell off or safe infer failed, mark unsafe -- if safe Haskell off or safe infer failed, mark unsafe
then markUnsafeInfer tcg_res whyUnsafe then markUnsafeInfer tcg_res whyUnsafe
...@@ -544,11 +544,6 @@ tcRnModule' sum save_rn_syntax mod = do ...@@ -544,11 +544,6 @@ tcRnModule' sum save_rn_syntax mod = do
errTwthySafe tcg_res') errTwthySafe tcg_res')
False -> return () False -> return ()
return tcg_res' return tcg_res'
-- apply plugins to the type checking result
return res
where where
pprMod t = ppr $ moduleName $ tcg_mod t pprMod t = ppr $ moduleName $ tcg_mod t
errSafe t = quotes (pprMod t) <+> text "has been inferred as safe!" errSafe t = quotes (pprMod t) <+> text "has been inferred as safe!"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment