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) <>