nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fixed medium settings

Browse source
This commit is contained in:
nek0 2015-01-16 22:41:12 +01:00
parent 5e7d045e71
commit 1147617739
3 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/MediumSettings.hs
View file

@ -12,7 +12,7 @@ getMediumSettingsR mediumId = do
case checkRes of case checkRes of
Right medium -> do Right medium -> do
(mediumSettingsWidget, enctype) <- generateFormPost $ mediumSettingsForm medium (mediumSettingsWidget, enctype) <- generateFormPost $ mediumSettingsForm medium
defaultLayout $ do formLayout $ do
setTitle "Eidolon :: Medium Settings" setTitle "Eidolon :: Medium Settings"
$(widgetFile "mediumSettings") $(widgetFile "mediumSettings")
Left (errorMsg, route) -> do Left (errorMsg, route) -> do
@ -60,7 +60,7 @@ getMediumDeleteR mediumId = do
checkRes <- mediumCheck mediumId checkRes <- mediumCheck mediumId
case checkRes of case checkRes of
Right medium -> do Right medium -> do
defaultLayout $ do formLayout $ do
setTitle "Eidolon :: Delete Medium" setTitle "Eidolon :: Delete Medium"
$(widgetFile "mediumDelete") $(widgetFile "mediumDelete")
Left (errorMsg, route) -> do Left (errorMsg, route) -> do

2
templates/mediumDelete.hamlet
View file

@ -1,4 +1,6 @@
$newline always $newline always
<div id="header" class="item" data-width="300">
<div class="inner">
<h3>Delete Medium #{mediumTitle medium} <h3>Delete Medium #{mediumTitle medium}
<p> <p>

2
templates/mediumSettings.hamlet
View file

@ -1,4 +1,6 @@
$newline always $newline always
<div id="header" class="item" data-width="300">
<div class="inner">
<h3>Medium settings <h3>Medium settings
<form method="post" enctype=#{enctype}> <form method="post" enctype=#{enctype}>