-- | Move across FileSystems
mv' :: FileSystem -> Path -> FileSystem -> Path -> IO ()
mv' (FileSystem fs) p (FileSystem fs') p' =
  withCString p $ \src -> withCString p' $ \dst ->
    throwErrnoIfMinus1_ "mv" $ c_hdfs_move fs src fs' dst
mv' :: FileSystem -> Path -> FileSystem -> Path -> IO ()
mv' (FileSystem fs) p (FileSystem fs') p' =
  withCString p $ \src -> withCString p' $ \dst ->
    throwErrnoIfMinus1_ "mv" $ c_hdfs_move fs src fs' dst
mv' (FileSystem fs) p (FileSystem fs') p' =
  withCString p $ \src -> withCString p' $ \dst ->
    throwErrnoIfMinus1_ "mv" $ c_hdfs_move fs src fs' dst