fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into feat/exercises

Browse Source
This commit is contained in:
SJost 2018-03-07 14:17:02 +01:00
commit f36d048dac
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course.hs
View File

@ -221,7 +221,7 @@ courseEditHandler course = do
let formActions = defaultFormActions let formActions = defaultFormActions
defaultLayout $ do defaultLayout $ do
setTitle [shamlet| #{formTitle} |] setTitle [shamlet| #{formTitle} |]
$(widgetFile "generic_form") $(widgetFile "formPage")
data CourseForm = CourseForm data CourseForm = CourseForm

4
src/Handler/Term.hs
View File

@ -116,7 +116,7 @@ termEditHandler term = do
let formActions = defaultFormActions let formActions = defaultFormActions
defaultLayout $ do defaultLayout $ do
setTitle [shamlet| #{formTitle} |] setTitle [shamlet| #{formTitle} |]
$(widgetFile "generic_form") $(widgetFile "formPage")
{- {-
wdgtTermForm :: (ToWidget UniWorX a) => a -> Enctype -> Handler Html wdgtTermForm :: (ToWidget UniWorX a) => a -> Enctype -> Handler Html
@ -126,7 +126,7 @@ wdgtTermForm formWidget formEnctype = do
let formActions = defaultFormActions let formActions = defaultFormActions
defaultLayout $ do defaultLayout $ do
setTitle [shamlet| #{formTitle} |] setTitle [shamlet| #{formTitle} |]
$(widgetFile "generic_form") $(widgetFile "formPage")
-} -}
newTermForm :: Maybe Term -> Form Term newTermForm :: Maybe Term -> Form Term

0
templates/generic_form.hamlet → templates/formPage.hamlet
View File