getDataFrame :: DataFrameH5 -> Producer DataFrame IO ()
getDataFrame d = do
  (Just n) <- lift $ lenH5Dataspace (h5mu d)
  forM_ [0..n-1] (\i -> lift (getDataFrame' d i) >>= yield)
getDataFrame :: DataFrameH5 -> Producer DataFrame IO ()
getDataFrame d = do
  (Just n) <- lift $ lenH5Dataspace (h5mu d)
  forM_ [0..n-1] (\i -> lift (getDataFrame' d i) >>= yield)
getDataFrame d = do
  (Just n) <- lift $ lenH5Dataspace (h5mu d)
  forM_ [0..n-1] (\i -> lift (getDataFrame' d i) >>= yield)