readMV2s :: MonadIO m => TR m (ZipList MV2Info)
readMV2s = do
  c00 <- readD "jetsMV2c00"
  c10 <- readD "jetsMV2c10"
  c20 <- readD "jetsMV2c20"
  c100 <- readD "jetsMV2c100"
  cl100 <- readD "jetsMV2cl100"

  return $ MV2Info
    <$> c00
    <*> c10
    <*> c20
    <*> c100
    <*> cl100

  where
    readD n = fmap float2Double <$> readBranch n


-- TODO
-- can't get TH working with external libs (e.g. root)
readMV2s :: MonadIO m => TR m (ZipList MV2Info)
readMV2s = do
  c00 <- readD "jetsMV2c00"
  c10 <- readD "jetsMV2c10"
  c20 <- readD "jetsMV2c20"
  c100 <- readD "jetsMV2c100"
  cl100 <- readD "jetsMV2cl100"

  return $ MV2Info
    <$> c00
    <*> c10
    <*> c20
    <*> c100
    <*> cl100

  where
    readD n = fmap float2Double <$> readBranch n


-- TODO
-- can't get TH working with external libs (e.g. root)
readMV2s = do
  c00 <- readD "jetsMV2c00"
  c10 <- readD "jetsMV2c10"
  c20 <- readD "jetsMV2c20"
  c100 <- readD "jetsMV2c100"
  cl100 <- readD "jetsMV2cl100"

  return $ MV2Info
    <$> c00
    <*> c10
    <*> c20
    <*> c100
    <*> cl100

  where
    readD n = fmap float2Double <$> readBranch n


-- TODO
-- can't get TH working with external libs (e.g. root)