fixed flattr backlinks

This commit is contained in:
nek0 2016-06-11 11:30:41 +02:00
parent 3107b23376
commit b226fde9d4
2 changed files with 4 additions and 1 deletions

View File

@ -27,3 +27,5 @@ executable blog
, hakyll
, directory
, HTTP
, unix
, filepath

View File

@ -5,6 +5,7 @@ import Data.Monoid ((<>))
import Data.List (sort, delete)
import System.Directory
import Network.HTTP.Base (urlEncode)
import Data.Maybe (fromMaybe)
--------------------------------------------------------------------------------
main :: IO ()
@ -67,7 +68,7 @@ main = do
compile $ do
ident <- getUnderlying
title <- getMetadataField' ident "title"
let url = toFilePath ident
url <- return . fromMaybe "" =<< getRoute ident
compiled <- getResourceBody >>= renderPandoc
let pageCtx = paginateContext pages num
let flattrCtx = constField "enctitle" (urlEncode title) <>