From a29cefe7d252fce9518240f0ed8d2a23db15ebe8 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 7 Mar 2018 14:16:08 +0100 Subject: [PATCH] MV: generic_form.hamlet -> formPage.hamlet --- src/Handler/Course.hs | 2 +- src/Handler/Term.hs | 4 ++-- templates/{generic_form.hamlet => formPage.hamlet} | 0 3 files changed, 3 insertions(+), 3 deletions(-) rename templates/{generic_form.hamlet => formPage.hamlet} (100%) diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index c8ca18323..28250fb7d 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -221,7 +221,7 @@ courseEditHandler course = do let formActions = defaultFormActions defaultLayout $ do setTitle [shamlet| #{formTitle} |] - $(widgetFile "generic_form") + $(widgetFile "formPage") data CourseForm = CourseForm diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs index e41e24fc3..a78362fb1 100644 --- a/src/Handler/Term.hs +++ b/src/Handler/Term.hs @@ -113,7 +113,7 @@ termEditHandler term = do let formActions = defaultFormActions defaultLayout $ do setTitle [shamlet| #{formTitle} |] - $(widgetFile "generic_form") + $(widgetFile "formPage") {- wdgtTermForm :: (ToWidget UniWorX a) => a -> Enctype -> Handler Html @@ -123,7 +123,7 @@ wdgtTermForm formWidget formEnctype = do let formActions = defaultFormActions defaultLayout $ do setTitle [shamlet| #{formTitle} |] - $(widgetFile "generic_form") + $(widgetFile "formPage") -} newTermForm :: Maybe Term -> Form Term diff --git a/templates/generic_form.hamlet b/templates/formPage.hamlet similarity index 100% rename from templates/generic_form.hamlet rename to templates/formPage.hamlet