import System.Process c = do res <- readProcess "wmic" ["logicaldisk","get","caption"] "" --print res -- clean up the output print $init $map (take 2) $drop 1(lines res)
import System.Process c = do res <- readProcess "wmic" ["logicaldisk","get","caption"] "" --print res -- clean up the output print $init $map (take 2) $drop 1(lines res)
