hxt-binary 0.0.1 → 0.0.2

raw patch · 2 files changed

+10/−5 lines, 2 filesdep +deepseqdep ~hxtPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: deepseq

Dependency ranges changed: hxt

API changes (from Hackage documentation)

Files

• hxt-binary.cabal +4/−3
• src/Text/XML/HXT/Arrow/Binary.hs +6/−2

@@ -1,5 +1,5 @@ name: hxt-binary-version: 0.0.1+version: 0.0.2 license: OtherLicense license-file: LICENCE maintainer: Uwe Schmidt <uwe@fh-wedel.de>@@ -9,7 +9,7 @@ description: Extension for storing and loading already parsed XML documents in an internal format.  Serialisation and Deserialisation is done with the binary package. homepage: http://www.fh-wedel.de/~si/HXmlToolbox/index.html-copyright: Copyright (c) 2009 Uwe Schmidt+copyright: Copyright (c) 2010 Uwe Schmidt build-type: Simple cabal-version: >=1.6 @@ -32,4 +32,5 @@                 bytestring >= 0.9 && < 1,                 binary     >= 0.5 && < 1,                 bzlib      >= 0.5 && < 1,-                hxt        >= 8.2 && < 9+                deepseq    >= 1.1 && < 2,+                hxt        >= 8.5 && < 9

@@ -20,6 +20,7 @@     ) where +import           Control.DeepSeq import 		 Control.Exception	( SomeException 					, try 					)@@ -36,8 +37,11 @@ -- | Read a serialied value from a file. The the flag indicates uncompressing. -- In case of an error, the error message is issued and the arrow fails -readBinaryValue 	:: (Binary a) => Bool -> String -> IOStateArrow s b a-readBinaryValue c f	= arrIO (\ _ -> try' $ dec c)+readBinaryValue 	:: (NFData a, Binary a) => Bool -> String -> IOStateArrow s b a+readBinaryValue c f	= arrIO0 (try' $ do+                                         r <- dec c+                                         rnf r `seq` return r+                                 ) 			  >>> 			  issueExc "readBinaryValue"     where