डिकंप्रेस IOError को कैसे पकड़ें?

Question

मैं इस कोड का टुकड़ा लिखा एक फ़ाइल संकुचित हो सकती है कि पढ़ने के लिए:

import Codec.Compression.GZip 
import IO -- using IO.try 

read file = do 
    let f = L.readFile file 
    let c = fmap decompress $ f 

    unzipped <- try c 

    case unzipped of 
    Right b -> return b 
    Left _ -> f 

यह ठीक संकलित, लेकिन ऐसा लगता है कि इस असम्पीडित फ़ाइलों को संभालने के लिए कोई वैध तरीका है। संपीड़ित फ़ाइल पर कोड चल रहा है अच्छा काम करता है, लेकिन एक असम्पीडित फ़ाइल एक अपवाद के साथ विफल:

*** Exception: Codec.Compression.Zlib: incorrect header check 

यह कैसे संभव बनाने के लिए पर कोई विचार?

Answer 1

आपको Codec.Compression.Zlib.Internal आयात करने की आवश्यकता है। विशेष रूप से “Low-level API to get explicit error reports” शीर्षक वाला अनुभाग नोट करें।

आप (अपरीक्षित ध्यान दें) कुछ इस तरह उपयोग करना चाहते हैं जाएगा:

import qualified Codec.Compression.Zlib.Internal as Z 
import Control.Arrow (right) 

decompressWithoutExceptions :: L.ByteString -> Either Z.DecompressError L.ByteString 
decompressWithoutExceptions = finalise 
          . Z.foldDecompressStream cons nil err 
          . Z.decompressWithErrors Z.gzipFormat Z.defaultDecompressParams 
    where err errorCode errorString = Left errorCode 
     nil = Right [] 
     cons chunk = right (chunk :) 
     finalise = right L.fromChunks 

(मुझे लगता है आप आयात किया है Data.ByteString.Lazy एल के रूप में योग्य)

Answer 2

आप spoon पर देखना चाहते हैं, जो आपको अपवाद फेंकने पर Nothing प्राप्त करने की अनुमति देगा।