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