From c777812ddddd4c9f401cf2cba3c75c403958e708 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 12 Jan 2015 21:31:29 +0100 Subject: [PATCH] introduced parallelism to medium et al --- Handler/Medium.hs | 4 ++-- templates/commentDelete.hamlet | 16 +++++++++------- templates/commentReply.hamlet | 20 +++++++++++--------- templates/default-layout-wrapper.hamlet | 4 ++-- templates/default-layout.cassius | 3 +++ templates/default-layout.hamlet | 3 +++ templates/form-widget.cassius | 2 +- templates/medium.cassius | 4 ++++ templates/medium.hamlet | 10 +++++----- 9 files changed, 40 insertions(+), 26 deletions(-) diff --git a/Handler/Medium.hs b/Handler/Medium.hs index ec72645..41e527c 100644 --- a/Handler/Medium.hs +++ b/Handler/Medium.hs @@ -102,7 +102,7 @@ getCommentReplyR commentId = do userSl <- return $ Just $ userSlug u mediumId <- return $ commentOrigin comment (replyWidget, enctype) <- generateFormPost $ commentForm userId userSl mediumId (Just commentId) - defaultLayout $ do + formLayout $ do setTitle "Eidolon :: Reply to comment" $(widgetFile "commentReply") Nothing -> do @@ -179,7 +179,7 @@ getCommentDeleteR commentId = do presence <- return $ (Just userId) == (commentAuthor comment) case presence of True -> do - defaultLayout $ do + formLayout $ do setTitle "Eidolon :: Delete comment" $(widgetFile "commentDelete") False -> do diff --git a/templates/commentDelete.hamlet b/templates/commentDelete.hamlet index 7e022d2..0af03b3 100644 --- a/templates/commentDelete.hamlet +++ b/templates/commentDelete.hamlet @@ -1,10 +1,12 @@ $newline always -

Delete comment +