readLeftoverSource :: Source -> IO ByteString
readLeftoverSource (Source ref _) = readIORef ref
readLeftoverSource :: Source -> IO ByteString
readLeftoverSource (Source ref _) = readIORef ref
readLeftoverSource (Source ref _) = readIORef ref