{-# 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 Tag
"sse-connect" Tag
" sse-connect=\""
{-# INLINE sseConnect #-}

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