IOError'ın sıkıştırması nasıl yapılır?

Question

Ben sıkıştırılabilir bir dosyayı okumak için bu kod parçacığını yazdı: Sadece iyi derler

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 

, ancak bu sıkıştırılmamış dosyaları işlemek için hiçbir geçerli bir yol gibi görünüyor. sıkıştırılmış dosya üzerinde kod çalıştırma güzel çalışır, ancak bir sıkıştırılmamış dosya bir durumla başarısız: Bunu mümkün kılmak için nasıl

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

bir fikrin?

Answer 1

Sen Codec.Compression.Zlib.Internal ithalat gerekir. Not özellikle “Low-level API to get explicit error reports” başlıklı bölüm.

Sen (denenmemiş unutmayın) böyle bir şey kullanmak isteyeceksiniz:

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 

Answer 2

Bir istisna atılmışsa Nothing alabilmeniz için spoon'a bakmak isteyebilirsiniz.