haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix CPP error

Browse Source
This commit is contained in:
Greg Weber 2011-08-24 11:07:40 -07:00
parent 6f9b0f359c
commit 8938401ce5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod/scaffold/Foundation.hs.cg
View File

@ -144,7 +144,7 @@ instance YesodAuth ~sitearg~ where
, authEmail , authEmail
] ]
-- Sends off your mail. Requires sendmail in production!
deliver :: ~sitearg~ -> L.ByteString -> IO () deliver :: ~sitearg~ -> L.ByteString -> IO ()
#ifdef PRODUCTION #ifdef PRODUCTION
deliver _ = sendmail deliver _ = sendmail
@ -152,7 +152,6 @@ deliver _ = sendmail
deliver y = logLazyText (getLogger y) . Data.Text.Lazy.Encoding.decodeUtf8 deliver y = logLazyText (getLogger y) . Data.Text.Lazy.Encoding.decodeUtf8
#endif #endif
instance YesodAuthEmail ~sitearg~ where instance YesodAuthEmail ~sitearg~ where
type AuthEmailId ~sitearg~ = EmailId type AuthEmailId ~sitearg~ = EmailId
@ -178,7 +177,7 @@ instance YesodAuthEmail ~sitearg~ where
, partContent = Data.Text.Lazy.Encoding.encodeUtf8 [stext| , partContent = Data.Text.Lazy.Encoding.encodeUtf8 [stext|
Please confirm your email address by clicking on the link below. Please confirm your email address by clicking on the link below.
#{verurl} #{verurl}
Thank you Thank you
|] |]