fixed medium settings

Handler/MediumSettings.hs

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

templates/mediumDelete.hamlet

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

templates/mediumSettings.hamlet

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