{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE LambdaCase #-} module Lucid.Alpine where import Data.Text import Lucid.Base (Attribute, makeAttribute) -- | x-data -- Declare a new Alpine component and its data for a block of HTML xData_ :: Text -> Attribute xData_ = makeAttribute "x-data" {-