hPutConvert :: Serialize basetype => (a -> basetype) -> Handle -> a -> IO ()
hPutConvert convert h a = hPut h (convert a)
hPutConvert :: Serialize basetype => (a -> basetype) -> Handle -> a -> IO ()
hPutConvert convert h a = hPut h (convert a)
hPutConvert convert h a = hPut h (convert a)