dftExecuteBatch
  :: DFTPlan
  -> DFTPlanID
  -> [VS.Vector (Complex Double)]
  -> IO [VS.Vector (Complex Double)]
dftExecuteBatch hashMap planID@(DFTPlanID t d i) vecs =
  case HM.lookup planID hashMap of
    Nothing ->
      error $
      "dftExecuteBatch: couldn't find plan for ID " L.++ show planID
    Just plan -> M.mapM (dftExecuteWithPlan planID plan) vecs


dftExecuteBatch
  :: DFTPlan
  -> DFTPlanID
  -> [VS.Vector (Complex Double)]
  -> IO [VS.Vector (Complex Double)]
dftExecuteBatch hashMap planID@(DFTPlanID t d i) vecs =
  case HM.lookup planID hashMap of
    Nothing ->
      error $
      "dftExecuteBatch: couldn't find plan for ID " L.++ show planID
    Just plan -> M.mapM (dftExecuteWithPlan planID plan) vecs


dftExecuteBatch hashMap planID@(DFTPlanID t d i) vecs =
  case HM.lookup planID hashMap of
    Nothing ->
      error $
      "dftExecuteBatch: couldn't find plan for ID " L.++ show planID
    Just plan -> M.mapM (dftExecuteWithPlan planID plan) vecs

