Object serialization: Difference between revisions

=={{header|Haskell}}==▼

Example uses [https://hackage.haskell.org/package/binary <tt>binary</tt>] package. Since Haskell doesn't directly support OO-style inheritance, we use a sum type instead:▼

<lang haskell>{-# LANGUAGE DeriveGeneric #-}▼

module Main (main) where▼

import qualified Data.ByteString.Lazy as ByteString (readFile, writeFile)▼

import Data.Binary (Binary)▼

import qualified Data.Binary as Binary (decode, encode)▼

import GHC.Generics (Generic)▼

data Employee =▼

Manager String String▼

| IndividualContributor String String▼

deriving (Generic, Show)▼

instance Binary Employee▼

main :: IO ()▼

main = do▼

ByteString.writeFile "objects.dat" $ Binary.encode▼

[ IndividualContributor "John Doe" "Sales"▼

, Manager "Jane Doe" "Engineering"▼

]▼

bytes <- ByteString.readFile "objects.dat"▼

let employees = Binary.decode bytes▼

print (employees :: [Employee])</lang>▼