pickle.hs

import Data.Binary (Binary)
import qualified Data.Binary as Bin
import qualified Codec.Compression.GZip as GZip
import qualified Data.ByteString.Lazy.Char8 as BL

pickle :: Binary a => FilePath -> a -> IO ()
pickle path = BL.writeFile path . GZip.compress . Bin.encode

unpickle :: Binary a => FilePath -> IO a
unpickle path = Bin.decode . GZip.decompress <$> BL.readFile path

main :: IO ()
main = do
    let largeData = map (\i -> (i, show i)) [1..10000] :: [(Int, String)]
    pickle "save.dat" largeData
    -- 36KB
    BL.writeFile "save.txt" . GZip.compress . BL.pack . show $ largeData
    -- 46KB