{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.Htmx.ServerSentEvents where

import Text.Blaze.Internal (attribute, Attribute, AttributeValue)

sseConnect :: AttributeValue -> Attribute
sseConnect :: AttributeValue -> Attribute
sseConnect = Tag -> Tag -> AttributeValue -> Attribute
attribute "sse-connect" " sse-connect=\""
{-# INLINE sseConnect #-}

sseSwap :: AttributeValue -> Attribute
sseSwap :: AttributeValue -> Attribute
sseSwap = Tag -> Tag -> AttributeValue -> Attribute
attribute "sse-swap" " sse-swap=\""
{-# INLINE sseSwap #-}