{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}

module Handler.Utils.Templates where

import Import.NoFoundation

lipsum :: WidgetT site IO ()
lipsum = $(widgetFile "widgets/lipsum")

modal :: [Char] -> Maybe [Char] -> WidgetT site IO ()
modal modalTrigger (Just modalContent) = do
  let
    modalId :: Int32
    modalId = 13
  $(widgetFile "widgets/modal")
modal modalTrigger Nothing = do
  let
    modalId :: Int32
    modalId = 13
    modalContent :: [Char]
    modalContent = "placeholder"
  $(widgetFile "widgets/modal")