Windows中的Haskell列表驱动器

如何在 Haskell中列出磁盘驱动器？我想在 Windows上获取磁盘驱动器号并在 Linux上获得“/”.可能吗？我无法在任何地方找到它.

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)