haxr 3000.9.3 → 3000.10

raw patch · 3 files changed

+13/−5 lines, 3 files

Files

• CHANGES +6/−0
• Network/XmlRpc/Internals.hs +3/−1
• haxr.cabal +4/−4

@@ -1,3 +1,9 @@+* 3000.10 (10 October 2013)++  - Add an "unwrapped" value type that does not wrap the inner value+    string with an XML element.  This should only affect users who+    depend on Network.XmlRpc.Internals.+ * 3000.9.3 (18 May 2013)    - Critical bug fix --- do not use 3000.9.2, it is extremely broken

@@ -154,6 +154,7 @@       ValueInt Int -- ^ int or i4     | ValueBool Bool -- ^ bool     | ValueString String -- ^ string+    | ValueUnwrapped String -- ^ no inner element     | ValueDouble Double -- ^ double     | ValueDateTime LocalTime -- ^ dateTime.iso8601     | ValueBase64 BS.ByteString -- ^ base 64.  NOTE that you should provide the raw data; the haxr library takes care of doing the base-64 encoding.@@ -377,6 +378,7 @@ toXRValue (ValueInt x) = XR.Value [XR.Value_AInt (XR.AInt (showInt x))] toXRValue (ValueBool b) = XR.Value [XR.Value_Boolean (XR.Boolean (showBool b))] toXRValue (ValueString s) = XR.Value [XR.Value_AString (XR.AString (showString s))]+toXRValue (ValueUnwrapped s) = XR.Value [XR.Value_Str s] toXRValue (ValueDouble d) = XR.Value [XR.Value_ADouble (XR.ADouble (showDouble d))] toXRValue (ValueDateTime t) =    XR.Value [ XR.Value_DateTime_iso8601 (XR.DateTime_iso8601 (showDateTime t))]@@ -428,7 +430,7 @@ fromXRValue :: Monad m => XR.Value -> Err m Value fromXRValue (XR.Value vs)   =  case (filter notstr vs) of-       []     -> liftM  (ValueString . concat) (mapM (readString . unstr) vs)+       []     -> liftM  (ValueUnwrapped . concat) (mapM (readString . unstr) vs)        (v:_)  -> f v   where   notstr (XR.Value_Str _)  = False

@@ -1,5 +1,5 @@ Name: haxr-Version: 3000.9.3+Version: 3000.10 Cabal-version: >=1.10 Build-type: Simple Copyright: Bjorn Bringert, 2003-2006@@ -21,11 +21,11 @@         examples/raw_call.hs          examples/simple_client.hs     examples/simple_server.hs         examples/test_client.hs       examples/test_server.hs       examples/time-xmlrpc-com.hs         examples/validate.hs          examples/Makefile-Bug-reports: http://code.google.com/p/byorgey/issues/list?q=Project:haxr+Bug-reports: https://github.com/byorgey/haxr/issues  Source-repository head-  type:     darcs-  location: http://code.haskell.org/haxr+  type:     git+  location: git://github.com/byorgey/haxr.git  Library   Build-depends: base < 5,