ron-0.12: lib/RON/Text/Serialize/Experimental.hs

{-# LANGUAGE OverloadedStrings #-}

module RON.Text.Serialize.Experimental (serializeOpenFrame) where

import           RON.Prelude

import qualified Data.ByteString.Lazy.Char8 as BSLC

import           RON.Text.Serialize (serializeOpenOp)
import           RON.Types (Op (opId), OpenFrame)
import qualified RON.UUID as UUID

serializeOpenFrame :: OpenFrame -> ByteStringL
serializeOpenFrame ops =
  BSLC.intercalate ",\n" opsSerialized <> ";\n"
  where
    opsSerialized = zipWith serializeOpenOp (UUID.zero : map opId ops) ops