getDiskHandle :: String -> IO DiskHandle
getDiskHandle uuid = do
-- First try btrfs file systems
  btrfs <- getBtrfsHandle uuid
  case btrfs of
    (Just x) -> getBtrfsDH x
    Nothing -> getDiskHandleTag "UUID" uuid

-- | Get the disk handle from a user chosen blkid tag.
getDiskHandle :: String -> IO DiskHandle
getDiskHandle uuid = do
-- First try btrfs file systems
  btrfs <- getBtrfsHandle uuid
  case btrfs of
    (Just x) -> getBtrfsDH x
    Nothing -> getDiskHandleTag "UUID" uuid

-- | Get the disk handle from a user chosen blkid tag.
getDiskHandle uuid = do
-- First try btrfs file systems
  btrfs <- getBtrfsHandle uuid
  case btrfs of
    (Just x) -> getBtrfsDH x
    Nothing -> getDiskHandleTag "UUID" uuid

-- | Get the disk handle from a user chosen blkid tag.