SafeHaskell: Improve safe import fail error message
authorDavid Terei <davidterei@gmail.com>
Fri, 10 Jun 2011 08:24:46 +0000 (01:24 -0700)
committerDavid Terei <davidterei@gmail.com>
Sat, 18 Jun 2011 03:40:34 +0000 (20:40 -0700)
compiler/main/HscMain.lhs

index c4e5aba..1ffed43 100644 (file)
@@ -861,8 +861,8 @@ checkSafeImports dflags hsc_env tcg_env
             | otherwise = trusted $ getPackageDetails (pkgState dflags)
                                                       (modulePackageId m)
 
-        -- Is a module a Safe importable? Return Nothing if True, or a String
-        -- if it isn't containing the reason it isn't
+        -- Is a module trusted? Return Nothing if True, or a String
+        -- if it isn't, containing the reason it isn't
         isModSafe :: Module -> SrcSpan -> Hsc (Maybe SDoc)
         isModSafe m l = do
             iface <- lookup' m
@@ -894,7 +894,7 @@ checkSafeImports dflags hsc_env tcg_env
             case module_safe of
                 Nothing -> return ()
                 Just s  -> liftIO $ throwIO $ mkSrcErr $ unitBag $ mkPlainErrMsg l
-                            $ text "Safe import of" <+> ppr m <+> text "can't be met!"
+                            $ text ppr m <+> text "can't be safely imported!"
                                 <+> s
 
 --------------------------------------------------------------