RevWalk

norm2782 · norm2782 · commit 58c77b873609 · 2011-07-25T15:30:02.000+02:00
diff --git a/src/haskell/Data/HGit2/Revwalk.chs b/src/haskell/Data/HGit2/Revwalk.chs
@@ -100,4 +100,7 @@ setSorting (RevWalk rfp) s =
 
 -- | Return the repository on which this walker is operating.
 walkerRepo :: RevWalk -> IO Repository
-walkerRepo = undefined -- callRetCons {#call git_revwalk_repository#} Repository
+walkerRepo (RevWalk rfp) =
+  withForeignPtr rfp $ \r -> do
+  ptr <- mkFPtr =<< {#call git_revwalk_repository#} r
+  return $ Repository ptr
