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