1. Luke Plant
  2. haskellblog

Commits

Luke Plant  committed b7d705f

better name for function

  • Participants
  • Parent commits 30aeea0
  • Branches default

Comments (0)

Files changed (2)

File src/Blog/Forms.hs

View file
  • Ignore whitespace
                                            , values = map (show . fromEnum) formats
                                            , captions = map (X.toHtml . fromJust . (\f -> Map.lookup f formatNames)) formats
                                            }
-commentFormatWidget c  = setVal (show $ fromEnum $ Cm.format c) (formatWidget commentAllowedFormats)
+formatWidgetForComment c  = setVal (show $ fromEnum $ Cm.format c) (formatWidget commentAllowedFormats)
 
 -- | Enum for the different stages of submitting a comment
 data CommentStage = NoComment

File src/Blog/Views.hs

View file
  • Ignore whitespace
 -- which has pure functions that generally return Html.
 
 import Blog.DB (connect)
-import Blog.Forms (CommentStage(..), validateComment, emptyComment, emptyLoginData, validateLogin, initialCommentExtra, commentFormatWidget)
+import Blog.Forms (CommentStage(..), validateComment, emptyComment, emptyLoginData, validateLogin, initialCommentExtra, formatWidgetForComment)
 import Blog.Globals (mkCsrfField)
 import Blog.Links
 import Blog.Model
                         ("related", map postTemplateInfo related)
                         ("hasRelated", not $ null related)
                         ("commentData", commentData)
-                        ("formatWidget", X.toHtml $ commentFormatWidget commentData)
+                        ("formatWidget", X.toHtml $ formatWidgetForComment commentData)
                         ("commentExtra", commentExtra)
                        )
   where