module GHC.Unit.Ppr
( UnitPprInfo (..)
)
where
import GHC.Prelude
import GHC.Utils.Outputable
import Data.Version
data UnitPprInfo = UnitPprInfo
{ UnitPprInfo -> String
unitPprPackageName :: String
, UnitPprInfo -> Version
unitPprPackageVersion :: Version
, UnitPprInfo -> Maybe String
unitPprComponentName :: Maybe String
}
instance Outputable UnitPprInfo where
ppr :: UnitPprInfo -> SDoc
ppr UnitPprInfo
pprinfo = String -> SDoc
text (String -> SDoc) -> String -> SDoc
forall a b. (a -> b) -> a -> b
$ [String] -> String
forall a. Monoid a => [a] -> a
mconcat
[ UnitPprInfo -> String
unitPprPackageName UnitPprInfo
pprinfo
, case UnitPprInfo -> Version
unitPprPackageVersion UnitPprInfo
pprinfo of
Version [] [] -> String
""
Version
version -> String
"-" String -> String -> String
forall a. [a] -> [a] -> [a]
++ Version -> String
showVersion Version
version
, case UnitPprInfo -> Maybe String
unitPprComponentName UnitPprInfo
pprinfo of
Maybe String
Nothing -> String
""
Just String
cname -> String
":" String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
cname
]