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 5dfc1e5fd..8f7add7a3 100644 --- a/src/Handler/Term.hs +++ b/src/Handler/Term.hs @@ -116,7 +116,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 @@ -126,7 +126,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