fromSummarySO :: ZoomWritable a => SummarySO a -> Builder
fromSummarySO s@SummarySO{..} = mconcat [ fromSummarySOHeader s, l, d]
    where
        d = fromSummaryData summarySOData
        l = fromIntegral32be . B.length . toByteString $ d
fromSummarySO :: ZoomWritable a => SummarySO a -> Builder
fromSummarySO s@SummarySO{..} = mconcat [ fromSummarySOHeader s, l, d]
    where
        d = fromSummaryData summarySOData
        l = fromIntegral32be . B.length . toByteString $ d
fromSummarySO s@SummarySO{..} = mconcat [ fromSummarySOHeader s, l, d]
    where
        d = fromSummaryData summarySOData
        l = fromIntegral32be . B.length . toByteString $ d