-- * Inspecting the set of packages in scope
getPackageIncludePath,
- getPackageCIncludes,
getPackageLibraryPath,
getPackageLinkOpts,
getPackageExtraCcOpts,
| not (exposed p) = return p
| (p' : _) <- later_versions = do
debugTraceMsg dflags 2 $
- (ptext SLIT("hiding package") <+>
+ (ptext (sLit "hiding package") <+>
text (showPackageId (package p)) <+>
- ptext SLIT("to avoid conflict with later version") <+>
+ ptext (sLit "to avoid conflict with later version") <+>
text (showPackageId (package p')))
return (p {exposed=False})
| otherwise = return p
where
notfound = do
debugTraceMsg dflags 2 $
- ptext SLIT("wired-in package ")
+ ptext (sLit "wired-in package ")
<> text wired_pkg
- <> ptext SLIT(" not found.")
+ <> ptext (sLit " not found.")
return Nothing
pick pkg = do
debugTraceMsg dflags 2 $
- ptext SLIT("wired-in package ")
+ ptext (sLit "wired-in package ")
<> text wired_pkg
- <> ptext SLIT(" mapped to ")
+ <> ptext (sLit " mapped to ")
<> text (showPackageId (package pkg))
return (Just (package pkg))
reportElim (p, deps) =
debugTraceMsg dflags 2 $
- (ptext SLIT("package") <+> pprPkg p <+>
- ptext SLIT("will be ignored due to missing or recursive dependencies:") $$
+ (ptext (sLit "package") <+> pprPkg p <+>
+ ptext (sLit "will be ignored due to missing or recursive dependencies:") $$
nest 2 (hsep (map (text.showPackageId) deps)))
-- -----------------------------------------------------------------------------
ps <- getPreloadPackagesAnd dflags pkgs
return (nub (filter notNull (concatMap includeDirs ps)))
- -- includes are in reverse dependency order (i.e. rts first)
-getPackageCIncludes :: [PackageConfig] -> IO [String]
-getPackageCIncludes pkg_configs = do
- return (reverse (nub (filter notNull (concatMap includes pkg_configs))))
-
getPackageLibraryPath :: DynFlags -> [PackageId] -> IO [String]
getPackageLibraryPath dflags pkgs = do
ps <- getPreloadPackagesAnd dflags pkgs
missingPackageErr p = throwDyn (CmdLineError (showSDoc (missingPackageMsg p)))
missingPackageMsg :: String -> SDoc
-missingPackageMsg p = ptext SLIT("unknown package:") <+> text p
+missingPackageMsg p = ptext (sLit "unknown package:") <+> text p
missingDependencyMsg :: Maybe PackageId -> SDoc
missingDependencyMsg Nothing = empty
missingDependencyMsg (Just parent)
- = space <> parens (ptext SLIT("dependency of") <+> ftext (packageIdFS parent))
+ = space <> parens (ptext (sLit "dependency of") <+> ftext (packageIdFS parent))
-- -----------------------------------------------------------------------------