From 826020fe18bf2eee43f8afea392874bb88c0650a Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 29 Jun 2009 11:47:07 +0100
Subject: Generated code for head/tail commands.

---
 haskell/Guestfs.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'haskell/Guestfs.hs')

diff --git a/haskell/Guestfs.hs b/haskell/Guestfs.hs
index 8101b526..dfa385ac 100644
--- a/haskell/Guestfs.hs
+++ b/haskell/Guestfs.hs
@@ -1158,8 +1158,8 @@ foreign import ccall unsafe "guestfs_sfdisk_N" c_sfdisk_N
   :: GuestfsP -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO (CInt)
 
 sfdisk_N :: GuestfsH -> String -> Int -> Int -> Int -> Int -> String -> IO ()
-sfdisk_N h device n cyls heads sectors line = do
-  r <- withCString device $ \device -> withCString line $ \line -> withForeignPtr h (\p -> c_sfdisk_N p device (fromIntegral n) (fromIntegral cyls) (fromIntegral heads) (fromIntegral sectors) line)
+sfdisk_N h device partnum cyls heads sectors line = do
+  r <- withCString device $ \device -> withCString line $ \line -> withForeignPtr h (\p -> c_sfdisk_N p device (fromIntegral partnum) (fromIntegral cyls) (fromIntegral heads) (fromIntegral sectors) line)
   if (r == -1)
     then do
       err <- last_error h
-- 
cgit