adding licence info to feeds

This commit is contained in:
nek0 2017-01-25 11:09:38 +01:00
parent 4c98dcca24
commit c374443fdc
2 changed files with 6 additions and 3 deletions

View file

@ -192,7 +192,9 @@ mediumToEntry ent = do
{ feedEntryLink = MediumR (entityKey ent)
, feedEntryUpdated = mediumTime (entityVal ent)
, feedEntryTitle = mediumTitle (entityVal ent)
, feedEntryContent = toHtml (fromMaybe (Markdown "") $ mediumDescription $ entityVal ent)
, feedEntryContent = toHtml ((fromMaybe (Markdown "") $ mediumDescription $ entityVal ent)
`mappend` Markdown (LT.pack "\n\n")
`mappend` Markdown (LT.pack $ show $ (toEnum $ mediumLicence (entityVal ent) :: Licence)))
, feedEntryEnclosure = Just $ EntryEnclosure
(StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumPreview $ entityVal ent) [])
size

View file

@ -1,5 +1,5 @@
name: eidolon
version: 0.1.8.3
version: 0.1.8.4
synopsis: Image gallery in Yesod
homepage: https://eidolon.nek0.eu
license: AGPL-3
@ -92,7 +92,7 @@ library
, yaml >= 0.8
, http-conduit >= 2.1
, directory >= 1.2
, warp >= 3.1 && < 3.2
, warp >= 3.1
, data-default >= 0.5
, aeson >= 0.6
, monad-logger >= 0.3
@ -140,6 +140,7 @@ library
, http-client
, yesod-form >= 1.4.7
, magic
, texmath < 0.9
executable eidolon
if flag(library-only)