hGetConvert :: Serialize basetype => (basetype -> a) -> Handle -> IO a
hGetConvert convert h = hGet h >>= return . convert
hGetConvert :: Serialize basetype => (basetype -> a) -> Handle -> IO a
hGetConvert convert h = hGet h >>= return . convert
hGetConvert convert h = hGet h >>= return . convert