-- | Collect PUIDs from command line options -p and -P.
collectPuids :: Options -> IO [String]
collectPuids opts = do
    content <- input' $ optPuidsFile opts
    return $ optPuids opts ++ lines content
collectPuids :: Options -> IO [String]
collectPuids opts = do
    content <- input' $ optPuidsFile opts
    return $ optPuids opts ++ lines content
collectPuids opts = do
    content <- input' $ optPuidsFile opts
    return $ optPuids opts ++ lines content