 
 --------------------------------------------------------------------------------
 -- | Delta
+
+
+cGenDelta :: Handle -> FilePath -> Handle -> IO (Handle, Result)
+cGenDelta sigHandle p deltaHandle = undefined
+
+
+{#fun unsafe genDelta as genDelta'
+      { fromIntegral `Fd'
+      , `String'
+      , fromIntegral `Fd'
+      } -> `Result' cIntToEnum
+
+ #}
 
 #c
 // generate a delta, based on the implementation of rdiff

{-# LANGUAGE ForeignFunctionInterface #-}
module Network.LibRSync.Internal where

import System.IO
import GHC.IO.Handle


    // rs_file_close(deltaFile);
    rs_file_close(f);
    rs_file_close(sigFile);

    return result;
}
#endc

--------------------------------------------------------------------------------
-- | Patch

{#fun unsafe applyPatch as applyPatch'
      { fromIntegral `Fd'
      , `String'
      , `String'
      } -> `Result' cIntToEnum
 #}


#c
