00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Make entry names optional, since notes shouldn't have names and articles should

Browse source
This commit is contained in:
Danielle McLean 2017-10-11 23:34:36 +11:00
parent 10b1ed834a
commit fa992bc861
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
6 changed files with 24 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Handler/Feed.hs
View file

@ -5,6 +5,7 @@ module Handler.Feed where
import Import
import Data.Time.Clock.POSIX ( posixSecondsToUTCTime )
import Model.Entry ( entryTitle )
import Widget.Entry ( entryR )
import qualified Data.Text as T
@ -47,7 +48,7 @@ toFeedEntry :: Entity Entry -> FeedEntry (Route App)
toFeedEntry entry = FeedEntry
{ feedEntryLink = entryR entry
, feedEntryUpdated = entryUpdated $ entityVal entry
, feedEntryTitle = entryName $ entityVal entry
, feedEntryTitle = entryTitle $ entityVal entry
, feedEntryContent = toHtml . entryContent . entityVal $ entry
, feedEntryEnclosure = Nothing
}