listCpu :: IO [[String]]
listCpu = do
    result <- readProcess "lscpu" ["-p"] ""
    return $ map (wordDelim (==',')) (lines result)


-- command line actions
listCpu :: IO [[String]]
listCpu = do
    result <- readProcess "lscpu" ["-p"] ""
    return $ map (wordDelim (==',')) (lines result)


-- command line actions
listCpu = do
    result <- readProcess "lscpu" ["-p"] ""
    return $ map (wordDelim (==',')) (lines result)


-- command line actions