Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

removed trailing whitespaces

  • Loading branch information...
commit 4db287a1c7382852702b5b71cfd4149428c75f5a 1 parent cde3bc4
@pSub authored
View
4 Yesod/Comments.hs
@@ -4,9 +4,9 @@
-------------------------------------------------------------------------------
-- |
-- Module : Yesod.Comments
--- Copyright : (c) Patrick Brisbin 2010
+-- Copyright : (c) Patrick Brisbin 2010
-- License : as-is
--- Maintainer : pbrisbin@gmail.com
+-- Maintainer : pbrisbin@gmail.com
-- Stability : unstable
-- Portability : unportable
--
View
16 Yesod/Comments/Core.hs
@@ -4,7 +4,7 @@
-------------------------------------------------------------------------------
-- |
-- Module : Yesod.Comments.Core
--- Copyright : (c) Patrick Brisbin 2010
+-- Copyright : (c) Patrick Brisbin 2010
-- License : as-is
--
-- Maintainer : pbrisbin@gmail.com
@@ -62,14 +62,14 @@ class Yesod m => YesodComments m where
-- | Load all comments, possibly filtered to a single thread.
loadComments :: Maybe ThreadId -> GHandler s m [Comment]
- -- | If using Auth, provide the function to get from a user id to
- -- the string to use as the commenter's username. This should
+ -- | If using Auth, provide the function to get from a user id to
+ -- the string to use as the commenter's username. This should
-- return something friendly probably pulled from the user's
-- profile on your site.
displayUser :: AuthId m -> GHandler s m T.Text
displayUser _ = return "" -- fixme: use toSinglePiece in new auth pkg
- -- | If using Auth, provide the function to get from a user id to
+ -- | If using Auth, provide the function to get from a user id to
-- the string to use as the commenter's email.
displayEmail :: AuthId m -> GHandler s m T.Text
displayEmail _ = return ""
@@ -101,9 +101,9 @@ commentFromForm tid cf = do
now <- liftIO getCurrentTime
ip <- return . show . remoteHost =<< waiRequest
cid <- getNextCommentId tid
- return Comment
- { threadId = tid
- , commentId = cid
+ return Comment
+ { threadId = tid
+ , commentId = cid
, timeStamp = now
, ipAddress = T.pack ip
, userName = formUser cf
@@ -247,7 +247,7 @@ showHelper comment (username, email) = do
<div .attribution>
<p>
<span .avatar>
- <img src="#{img email}">
+ <img src="#{img email}">
<a href="##{anchor}" id="#{anchor}">#{commentTimestamp}
, #{username} wrote:
View
6 Yesod/Comments/Management.hs
@@ -33,7 +33,7 @@
module Yesod.Comments.Management
( CommentsAdmin
-- FIXME:
- --, CommentsAdminRoute(..)
+ --, CommentsAdminRoute(..)
, getCommentsAdmin
) where
@@ -53,9 +53,9 @@ data CommentsAdmin = CommentsAdmin
getCommentsAdmin :: a -> CommentsAdmin
getCommentsAdmin = const CommentsAdmin
-mkYesodSub "CommentsAdmin"
+mkYesodSub "CommentsAdmin"
[ ClassP ''YesodAuth [ VarT $ mkName "master" ]
- , ClassP ''YesodComments [ VarT $ mkName "master" ] ]
+ , ClassP ''YesodComments [ VarT $ mkName "master" ] ]
[parseRoutes|
/ OverviewR GET
/view/#ThreadId/#CommentId ViewR GET
View
4 Yesod/Comments/Storage.hs
@@ -7,7 +7,7 @@
-------------------------------------------------------------------------------
-- |
-- Module : Yesod.Comments.Storage
--- Copyright : (c) Patrick Brisbin 2010
+-- Copyright : (c) Patrick Brisbin 2010
-- License : as-is
--
-- Maintainer : pbrisbin@gmail.com
@@ -18,7 +18,7 @@
--
-------------------------------------------------------------------------------
module Yesod.Comments.Storage
- (
+ (
-- * Persist
-- $persist
getCommentPersist
Please sign in to comment.
Something went wrong with that request. Please try again.