labelsFromIDXFile :: String -> IO [Label]
labelsFromIDXFile path = do
  idxData <- decodeIDXFile path
  let labels = DU.toList (idxIntContent $ fromJust idxData)
  return (map toInteger labels)
labelsFromIDXFile :: String -> IO [Label]
labelsFromIDXFile path = do
  idxData <- decodeIDXFile path
  let labels = DU.toList (idxIntContent $ fromJust idxData)
  return (map toInteger labels)
labelsFromIDXFile path = do
  idxData <- decodeIDXFile path
  let labels = DU.toList (idxIntContent $ fromJust idxData)
  return (map toInteger labels)