{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Ditto.Lucid where import Data.Foldable (traverse_) import Data.Text (Text) import Lucid import Ditto.Core import Ditto.Generalized as G import Ditto.Result (FormId) import qualified Data.Text as T encodeFormId :: FormId -> Text encodeFormId = T.pack . show -- | create @\