Binary.hs

{-# LANGUAGE TypeOperators #-}
module Data.HMemDb.Binary (GS, SP) where
import Control.Compose ((:.))
import Control.Concurrent.STM (STM)
import Data.Binary.Get (Get)
import Data.Binary.Put (PutM)
type GS = Get :. STM
type SP = (STM :. PutM) ()