From b226fde9d415d14051d3251244009c187a163e20 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 11 Jun 2016 11:30:41 +0200 Subject: [PATCH] fixed flattr backlinks --- nek0-blog.cabal | 2 ++ src/Main.hs | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/nek0-blog.cabal b/nek0-blog.cabal index 33458db..668b727 100644 --- a/nek0-blog.cabal +++ b/nek0-blog.cabal @@ -27,3 +27,5 @@ executable blog , hakyll , directory , HTTP + , unix + , filepath diff --git a/src/Main.hs b/src/Main.hs index b765b1c..a7dcb7d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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) <>