JYU-Utils-0.1.1: Utils/BinaryInstances.hs

module Utils.BinaryInstances where

import Data.Binary

import Utils.Rectangle

instance (Binary a) => Binary (Rectangle a) where
    put (Rectangle a) = put a
    get = get >>= return.Rectangle