diff --git a/src/Handler/Utils/Templates.hs b/src/Handler/Utils/Templates.hs index 2204c27f1..771e922f4 100644 --- a/src/Handler/Utils/Templates.hs +++ b/src/Handler/Utils/Templates.hs @@ -25,3 +25,8 @@ modal :: Text -> Maybe [Char] -> WidgetT site IO () modal triggerId (Just modalContent) = do modalId <- newIdent $(widgetFile "widgets/modal") +modal triggerId Nothing = do + modalId <- newIdent + let modalContent :: [Char] + modalContent = "placeholder" + $(widgetFile "widgets/modal") diff --git a/templates/adminTest.hamlet b/templates/adminTest.hamlet index ea27a3906..7638cb944 100644 --- a/templates/adminTest.hamlet +++ b/templates/adminTest.hamlet @@ -22,7 +22,6 @@