hlibgit2-0.1: tests/Main.hs~

module Main where
import Bindings.Libgit2
import Foreign
import Foreign.C.String

main = do
  alloca $ \ptr -> do
    withCString "foobar.git/.git" $ \str -> do
      c'git_repository_open ptr str
      peek ptr >>= c'git_repository_free