getDiskHandleTag :: String -> String -> IO DiskHandle
getDiskHandleTag t v = do
    block <- getBlockHandleTag t v
    case block of
        Just x -> getBlockDH x
        Nothing -> error "Disk currently does not support your setup"
getDiskHandleTag :: String -> String -> IO DiskHandle
getDiskHandleTag t v = do
    block <- getBlockHandleTag t v
    case block of
        Just x -> getBlockDH x
        Nothing -> error "Disk currently does not support your setup"
getDiskHandleTag t v = do
    block <- getBlockHandleTag t v
    case block of
        Just x -> getBlockDH x
        Nothing -> error "Disk currently does not support your setup"