assertLcbSuccess :: Monad m => String -> LcbError -> m ()
assertLcbSuccess msg err =
  when (err /= LcbSuccess) $ error msg
assertLcbSuccess :: Monad m => String -> LcbError -> m ()
assertLcbSuccess msg err =
  when (err /= LcbSuccess) $ error msg
assertLcbSuccess msg err =
  when (err /= LcbSuccess) $ error msg