eventFromBS :: Monad m => ByteString -> Producer Event m ()
eventFromBS = getLHCOEvent . yield
eventFromBS :: Monad m => ByteString -> Producer Event m ()
eventFromBS = getLHCOEvent . yield
eventFromBS = getLHCOEvent . yield