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

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

View file

@ -8,6 +8,7 @@ import Import
import Yesod.AtomFeed ( atomLink )
import Model.Cache ( getCached )
import Model.Entry ( entryTitle )
import Widget.Entry ( entryR, hEntry )
import Widget.Feed ( hFeed )
@ -36,5 +37,5 @@ renderEntry entry = do
when (actualRoute /= Just correctRoute) $
redirectWith movedPermanently301 correctRoute
defaultLayout $ do
setTitle . toHtml . entryName . entityVal $ entry
setTitle . toHtml . entryTitle . entityVal $ entry
$(widgetFile "entry")