packed-data-0.1.0.2: examples/Unpack.hs

module Unpack () where

import Data.Packed
import Tree

$(mkPacked ''Tree [])

myTree :: Tree Int
myTree = Node (Leaf 1) (Leaf 2)

packedTree :: Packed '[Tree Int]
packedTree = pack myTree

unpackedTree :: Tree Int
unpackedTree = fst $ unpack packedTree