--- greencard-3.01-clean/src/Proc.lhs	2005-02-02 21:50:48.353789896 +0100
+++ greencard-3.01/src/Proc.lhs	2005-02-02 21:51:21.343774656 +0100
@@ -632,7 +632,7 @@
 		 _        -> error "unmarshall:decl_cres"
 
             -- ForeignPtr constructor:
-	    --   newForeignPtr :: Ptr a -> FinalizerPtr a -> IO (ForeignPtr a)
+	    --   newForeignPtr :: FinalizerPtr a -> Ptr a -> IO (ForeignPtr a)
             --
            newForeignPtr = text "newForeignPtr"
 
@@ -641,7 +641,7 @@
 	    -- it leads to arguably clearer code.)
            free' = case free of '&':_ -> free ; _ -> '&':free
 
-           pack c = ppApply newForeignPtr [text v0, text v2] `ppBind` (text v1, c)
+           pack c = ppApply newForeignPtr [text v2, text v0] `ppBind` (text v1, c)
          return ( pack
                 , text v1
 		, decl_cres
*** greencard-3.01-orig/lib/Makefile	2003-06-05 14:37:24.000000000 +0200
--- greencard-3.01/lib/Makefile	2005-02-03 09:51:10.000000000 +0100
***************
*** 3,9 ****
  ### User serviceable parts  ###
  
  # Options to compile the sources with.
! GHC_OPTS = -cpp -fglasgow-exts -fno-prune-tydecls 
  
  PACKAGE=greencard
  
--- 3,9 ----
  ### User serviceable parts  ###
  
  # Options to compile the sources with.
! GHC_OPTS = -cpp -fglasgow-exts 
  
  PACKAGE=greencard