1 files changed, 3 insertions, 0 deletions
diff --git a/haskell/XDelta/Types.hsc b/haskell/XDelta/Types.hsc
index f1d98ce..a0f2cfa 100644
--- a/haskell/XDelta/Types.hsc
+++ b/haskell/XDelta/Types.hsc
@@ -115,6 +115,9 @@ data Config = Config
  , smatch_cfg :: Either StringMatcher SMatchSelect -- ^  See enum: use fields below  for soft config
  }
+pattern XD3_DEFAULT_WINSIZE = #const XD3_DEFAULT_WINSIZE
+pattern XD3_DEFAULT_SPREVSZ = #const XD3_DEFAULT_SPREVSZ
+pattern XD3_DEFAULT_IOPT_SIZE = #const XD3_DEFAULT_IOPT_SIZE
 newtype Flags = Flags Word32
    deriving (Storable,Eq,Bits,FiniteBits)

diff --git a/haskell/XDelta/Types.hsc b/haskell/XDelta/Types.hsc index f1d98ce..a0f2cfa 100644 --- a/haskell/XDelta/Types.hsc +++ b/haskell/XDelta/Types.hsc
@@ -115,6 +115,9 @@ data Config = Config
115	, smatch_cfg :: Either StringMatcher SMatchSelect -- ^ See enum: use fields below for soft config	115	, smatch_cfg :: Either StringMatcher SMatchSelect -- ^ See enum: use fields below for soft config
116	}	116	}
117		117
		118	pattern XD3_DEFAULT_WINSIZE = #const XD3_DEFAULT_WINSIZE
		119	pattern XD3_DEFAULT_SPREVSZ = #const XD3_DEFAULT_SPREVSZ
		120	pattern XD3_DEFAULT_IOPT_SIZE = #const XD3_DEFAULT_IOPT_SIZE
118		121
119	newtype Flags = Flags Word32	122	newtype Flags = Flags Word32
120	deriving (Storable,Eq,Bits,FiniteBits)	123	deriving (Storable,Eq,Bits,FiniteBits)