diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-06-29 11:47:07 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-06-29 11:47:07 +0100 |
| commit | 826020fe18bf2eee43f8afea392874bb88c0650a (patch) | |
| tree | 7c6c40758611605be29b3528da647a78a071ea1b /haskell | |
| parent | 3854bbdecd1c089959fb812a739b84a96c05fbbf (diff) | |
| download | libguestfs-826020fe18bf2eee43f8afea392874bb88c0650a.tar.gz libguestfs-826020fe18bf2eee43f8afea392874bb88c0650a.tar.xz libguestfs-826020fe18bf2eee43f8afea392874bb88c0650a.zip | |
Generated code for head/tail commands.
Diffstat (limited to 'haskell')
| -rw-r--r-- | haskell/Guestfs.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |