-- | Like 'fromRawdio', but raises an error if the rate or count do not match.
fromRawdio' :: (KnownNat r, KnownNat c) => Rawdio -> IO (Audio r c)
fromRawdio' raw = fromRawdio raw >>=
  either (\e -> error $ "fromRawdio': " ++ e) return
fromRawdio' :: (KnownNat r, KnownNat c) => Rawdio -> IO (Audio r c)
fromRawdio' raw = fromRawdio raw >>=
  either (\e -> error $ "fromRawdio': " ++ e) return
fromRawdio' raw = fromRawdio raw >>=
  either (\e -> error $ "fromRawdio': " ++ e) return