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

--------------------------------------------------------------------------------
-- | 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)




             EmptyDataDecls
 #-}
module Network.LibRSync.Internal where

import Control.Applicative((<$>),(<*>))
import Control.Monad

import Data.ByteString
import Data.Conduit
