withSvdCreate :: Comm -> (SVD -> IO a) -> IO a
withSvdCreate k = bracket (svdCreate k) svdDestroy where
  svdCreate cc = chk1 $ svdCreate' cc
  svdDestroy s = chk0 $ svdDestroy' s
withSvdCreate :: Comm -> (SVD -> IO a) -> IO a
withSvdCreate k = bracket (svdCreate k) svdDestroy where
  svdCreate cc = chk1 $ svdCreate' cc
  svdDestroy s = chk0 $ svdDestroy' s
withSvdCreate k = bracket (svdCreate k) svdDestroy where
  svdCreate cc = chk1 $ svdCreate' cc
  svdDestroy s = chk0 $ svdDestroy' s