We are no longer offering accounts on this server. Consider https://gitlab.freedesktop.org/ as a place to host projects.

Commit fa4b0894 authored by Mitchell Rosen's avatar Mitchell Rosen

change unclaim button text from 'claim' to 'unclaim'

parent a9f91a14
......@@ -241,7 +241,7 @@ makeDeleteCommentWidget = makeCommentActionWidget can_delete deleteCommentFo
makeReplyCommentWidget = makeCommentActionWidget can_reply commentReplyFormWidget
makeRethreadCommentWidget = makeCommentActionWidget can_rethread rethreadCommentFormWidget
makeRetractCommentWidget = makeCommentActionWidget can_retract (retractCommentFormWidget Nothing)
makeUnclaimCommentWidget = makeCommentActionWidget can_unclaim (claimCommentFormWidget Nothing)
makeUnclaimCommentWidget = makeCommentActionWidget can_unclaim (unclaimCommentFormWidget Nothing)
makeEditCommentWidget
comment
......
......@@ -28,6 +28,7 @@ module View.Comment
, flagCommentFormWidget
, rethreadCommentFormWidget
, retractCommentFormWidget
, unclaimCommentFormWidget
-- Misc
, orderingNewestFirst
) where
......@@ -111,10 +112,11 @@ editCommentForm = commentForm "Edit" . Just
claimCommentFormWidget :: Maybe (Maybe Text) -> Widget
closeCommentFormWidget :: Maybe Markdown -> Widget
retractCommentFormWidget :: Maybe Markdown -> Widget
commentNewTopicFormWidget :: Widget
commentReplyFormWidget :: Widget
editCommentFormWidget :: Markdown -> Widget
retractCommentFormWidget :: Maybe Markdown -> Widget
unclaimCommentFormWidget :: Maybe (Maybe Text) -> Widget
closeCommentFormWidget = closureFormWidget' "close" . closeCommentForm
retractCommentFormWidget = closureFormWidget' "retract" . retractCommentForm
......@@ -123,6 +125,7 @@ claimCommentFormWidget = commentFormWidget' "claim" . claimCommentForm
commentNewTopicFormWidget = commentFormWidget' "post" commentNewTopicForm
commentReplyFormWidget = commentFormWidget' "post" commentReplyForm
editCommentFormWidget = commentFormWidget' "post" . editCommentForm
unclaimCommentFormWidget = commentFormWidget' "unclaim" . claimCommentForm
approveCommentFormWidget :: Widget
approveCommentFormWidget =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment