Làm thế nào để bắt IOError giải nén?

Question

tôi đã viết đoạn mã này để đọc một tập tin có thể được nén:

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 

Nó biên dịch tốt, nhưng có vẻ như đây không phải là cách hợp lệ để xử lý các file nén. Chạy mã trên một tệp nén hoạt động tốt, nhưng một tệp không nén không thành công với một ngoại lệ:

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

Bất kỳ ý tưởng nào về cách thực hiện điều này có thể?

Answer 1

Bạn cần nhập Codec.Compression.Zlib.Internal. Lưu ý, cụ thể là phần có tiêu đề “Low-level API to get explicit error reports”.

Bạn sẽ muốn sử dụng một cái gì đó như thế này (lưu ý chưa được kiểm tra):

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 

(tôi đoán bạn đã nhập Data.ByteString.Lazy đủ điều kiện như L.)

Answer 2

Bạn có thể muốn xem spoon, điều này sẽ cho phép bạn nhận được Nothing nếu ngoại lệ bị ném.