23 lines
531 B
Haskell
23 lines
531 B
Haskell
{-# 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")
|