{-# LINE 1 "Bindings/Libgit2/Net.hsc" #-}

{-# LINE 2 "Bindings/Libgit2/Net.hsc" #-}

{-# LINE 3 "Bindings/Libgit2/Net.hsc" #-}
module Bindings.Libgit2.Net where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 5 "Bindings/Libgit2/Net.hsc" #-}

import Bindings.Libgit2.Common
import Bindings.Libgit2.Oid
import Bindings.Libgit2.Types
{- struct git_remote_head {
    int local : 1; git_oid oid; git_oid loid; char * name;
}; -}

{-# LINE 13 "Bindings/Libgit2/Net.hsc" #-}
-- #field local , CInt

{-# LINE 15 "Bindings/Libgit2/Net.hsc" #-}

{-# LINE 16 "Bindings/Libgit2/Net.hsc" #-}

{-# LINE 17 "Bindings/Libgit2/Net.hsc" #-}
data C'git_remote_head = C'git_remote_head{
  c'git_remote_head'oid :: C'git_oid,
  c'git_remote_head'loid :: C'git_oid,
  c'git_remote_head'name :: CString
} deriving (Eq,Show)
p'git_remote_head'oid p = plusPtr p 1
p'git_remote_head'oid :: Ptr (C'git_remote_head) -> Ptr (C'git_oid)
p'git_remote_head'loid p = plusPtr p 21
p'git_remote_head'loid :: Ptr (C'git_remote_head) -> Ptr (C'git_oid)
p'git_remote_head'name p = plusPtr p 44
p'git_remote_head'name :: Ptr (C'git_remote_head) -> Ptr (CString)
instance Storable C'git_remote_head where
  sizeOf _ = 48
  alignment _ = 4
  peek p = do
    v0 <- peekByteOff p 1
    v1 <- peekByteOff p 21
    v2 <- peekByteOff p 44
    return $ C'git_remote_head v0 v1 v2
  poke p (C'git_remote_head v0 v1 v2) = do
    pokeByteOff p 1 v0
    pokeByteOff p 21 v1
    pokeByteOff p 44 v2
    return ()

{-# LINE 18 "Bindings/Libgit2/Net.hsc" #-}
{- typedef int (* git_headlist_cb)(git_remote_head *, void *); -}
type C'git_headlist_cb = CInt

{-# LINE 20 "Bindings/Libgit2/Net.hsc" #-}