Commit f04bbfdb authored by dterei's avatar dterei

SafeHaskell: Fix a warning stopping validation

parent 3cf28893
......@@ -631,10 +631,10 @@ reportOverlap ctxt inst_envs orig pred@(ClassP clas tys)
-- Overlap error because of SafeHaskell (first match should be the most
-- specific match)
mk_overlap_msg (matches, unifiers, True)
mk_overlap_msg (matches, _unifiers, True)
= ASSERT( length matches > 1 )
vcat [ addArising orig (ptext (sLit "Unsafe overlapping instances for")
<+> pprPred pred)
<+> pprPredTy pred)
, sep [ptext (sLit "The matching instance is") <> colon,
nest 2 (pprInstance $ head ispecs)]
, vcat [ ptext $ sLit "It is compiled in a Safe module and as such can only"
......
......@@ -1794,10 +1794,12 @@ showPackages = do
liftIO $ putStrLn $ showSDoc $ vcat $
text ("active package flags:"++if null pkg_flags then " none" else "")
: map showFlag pkg_flags
where showFlag (ExposePackage p) = text $ " -package " ++ p
showFlag (HidePackage p) = text $ " -hide-package " ++ p
showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p
where showFlag (ExposePackage p) = text $ " -package " ++ p
showFlag (HidePackage p) = text $ " -hide-package " ++ p
showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p
showFlag (ExposePackageId p) = text $ " -package-id " ++ p
showFlag (TrustPackage p) = text $ " -trust " ++ p
showFlag (DistrustPackage p) = text $ " -distrust " ++ p
showLanguages :: GHCi ()
showLanguages = do
......
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