              EmptyDataDecls
  #-}
 module Network.LibRSync.Internal where
+
+import Control.Applicative((<$>),(<*>))
+import Control.Monad
 
 import Data.ByteString
 import Data.Conduit

--------------------------------------------------------------------------------
-- | The CTypes

data CInMemoryBuffer = CInMemoryBuffer (Ptr Char) CSize CSize

{#pointer *inMemoryBuffer_t as CInMemoryBufferPtr -> CInMemoryBuffer #}


getData                          :: CInMemoryBuffer -> IO ByteString
getData (CInMemoryBuffer xs _ s) = packCStringLen (xs,s)




                                           }

instance Storable CRSyncSourceState where
    sizeOf    = const {#sizeof rsyncSourceState_t #}
    alignment = const 4
    peek      = undefined
    poke      = undefined

