{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} module Ditto.Lucid where import Data.Foldable (traverse_) import Data.Monoid ((<>), mconcat, mempty) import Data.Text (Text) import Lucid import Ditto.Backend import Ditto.Core import Ditto.Generalized as G import Ditto.Result (FormId, Result (Ok), unitRange) import Web.PathPieces import qualified Data.Text as T import qualified Text.Read instance PathPiece FormId where toPathPiece fid = T.pack (show fid) fromPathPiece fidT = Nothing -- | create @\