X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fgenerator.ml;h=d91fc24f904a23af3226246144749144534c007e;hb=49e85f8cda664819d0f73c476f1596d1ecc128c8;hp=8b834966afa3e25e644c64883438b6e429dc97b9;hpb=79125c4dea9c69d08b522ed7c85f26dc6ee1bcb3;p=libguestfs.git

diff --git a/src/generator.ml b/src/generator.ml
index 8b83496..d91fc24 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -9317,6 +9317,12 @@ module Guestfs (
 
   pr "
   ) where
+
+-- Unfortunately some symbols duplicate ones already present
+-- in Prelude.  We don't know which, so we hard-code a list
+-- here.
+import Prelude hiding (truncate)
+
 import Foreign
 import Foreign.C
 import Foreign.C.Types