module SimpleCmd.Rpm (
rpmspec
) where
import SimpleCmd (cmdLines)
rpmspec :: [String] -> Maybe String -> FilePath -> IO [String]
rpmspec :: [String] -> Maybe String -> String -> IO [String]
rpmspec [String]
args Maybe String
mqf String
spec = do
let qf :: [String]
qf = forall b a. b -> (a -> b) -> Maybe a -> b
maybe [] (\ String
q -> [String
"--queryformat", String
q forall a. [a] -> [a] -> [a]
++ String
"\n"]) Maybe String
mqf
String -> [String] -> IO [String]
cmdLines String
"rpmspec" ([String
"-q"] forall a. [a] -> [a] -> [a]
++ [String]
args forall a. [a] -> [a] -> [a]
++ [String]
qf forall a. [a] -> [a] -> [a]
++ [String
spec])