L29Ah 20.11.2012 12:40 blog-21774

diff -urN curl-1.3.7.orig/Network/Curl/Opts.hs curl-1.3.7/Network/Curl/Opts.hs
--- curl-1.3.7.orig/Network/Curl/Opts.hs 2012-11-20 16:36:35.126992302 +0400
+++ curl-1.3.7/Network/Curl/Opts.hs 2012-11-20 16:37:52.774133213 +0400
@@ -126,7 +126,7 @@
| CurlFtpCreateMissingDirs Bool — ^ Have remote directories be created if not already there
| CurlProxyAuth [HttpAuth] — ^ What preferred authentication schemes to use wrt. proxy.
| CurlFtpResponseTimeout Long — ^ max number of seconds to wait for remote server to ACK commands.
- | CurlIPResolve Long — ^ Whether to resolve wrt IPv4 or IPv6.
+ | CurlIPResolve IPResolve — ^ Whether to resolve wrt IPv4 or IPv6.
| CurlMaxFileSize Long — ^ Limit the number of bytes you're willing to download.
| CurlInFileSizeLarge LLong — ^ Wider alternative of option giving upper bound of uploaded content (-1 => unknown.)
| CurlResumeFromLarge LLong — ^ Wider alternative for specifying initial transfer offset.
@@ -192,6 +192,12 @@
| HttpVersion11
deriving ( Enum,Show )

+data IPResolve
+ = IPResolveWhatever
+ | IPResolveV4
+ | IPResolveV6
+ deriving ( Enum,Show )
+
data TimeCond
= TimeCondNone
| TimeCondIfModSince
@@ -444,7 +450,7 @@
CurlFtpCreateMissingDirs x → u_bool um (l 110) x
CurlProxyAuth x → u_long um (l 111) (toHttpAuthMask x)
CurlFtpResponseTimeout x → u_long um (l 112) x
- CurlIPResolve x → u_long um (l 113) x
+ CurlIPResolve x → u_enum um (l 113) x
CurlMaxFileSize x → u_long um (l 114) x
CurlInFileSizeLarge x → u_llong um (off 115) x
CurlResumeFromLarge x → u_llong um (off 116) x

Do you really want to delete ?