From e051b270a2ba68d1a22b705d7839317f643624c5 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sat, 29 Dec 2012 14:28:47 +0000
Subject: [PATCH] haskell: Use unused bogus data types.

---
 generator/haskell.ml | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/generator/haskell.ml b/generator/haskell.ml
index 795f36c3d..abd04781a 100644
--- a/generator/haskell.ml
+++ b/generator/haskell.ml
@@ -81,15 +81,6 @@ data GuestfsS = GuestfsS            -- represents the opaque C struct
 type GuestfsP = Ptr GuestfsS        -- guestfs_h *
 type GuestfsH = ForeignPtr GuestfsS -- guestfs_h * with attached finalizer
 
--- XXX define properly later XXX
-data PV = PV
-data VG = VG
-data LV = LV
-data IntBool = IntBool
-data Stat = Stat
-data StatVFS = StatVFS
-data Hashtable = Hashtable
-
 foreign import ccall unsafe \"guestfs.h guestfs_create\" c_create
   :: IO GuestfsP
 foreign import ccall unsafe \"guestfs.h &guestfs_close\" c_close