From 4c1f0f9a4e4ee68aab098a61d3749960f568ec7f Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Thu, 8 Jun 2023 13:51:30 +0200 Subject: install files properly --- Utils.hs | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'Utils.hs') diff --git a/Utils.hs b/Utils.hs index c220cb7..ea0b1ec 100644 --- a/Utils.hs +++ b/Utils.hs @@ -3,9 +3,9 @@ module Utils where import Control.Monad.IO.Class import Data.List.Extra (stripSuffix) import Data.Maybe (isJust) +import qualified Data.Text as T import Text.Pandoc.Definition import qualified Text.Pandoc.Walk -import qualified Data.Text as T import Types @@ -27,13 +27,16 @@ second :: (a -> b) -> (c, a) -> (c, b) second f (a, b) = (a, f b) -- | A pandoc walker for modifying the URLs. -walkURLs :: (FilePath -> Site FilePath) -> Text.Pandoc.Definition.Pandoc -> Site Text.Pandoc.Definition.Pandoc +walkURLs :: + (FilePath -> Site FilePath) + -> Text.Pandoc.Definition.Pandoc + -> Site Text.Pandoc.Definition.Pandoc walkURLs f = Text.Pandoc.Walk.walkM go where - go (Link a i (u,t)) = do + go (Link a i (u, t)) = do u' <- T.pack <$> f (T.unpack u) - pure $ Link a i (u',t) - go (Image a i (u,t)) = do + pure $ Link a i (u', t) + go (Image a i (u, t)) = do u' <- T.pack <$> f (T.unpack u) - pure $ Image a i (u',t) + pure $ Image a i (u', t) go x = pure x -- cgit v1.2.3