From a04255d92cfdad56385ee6d94309bc8b493a613a Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Wed, 14 Jun 2023 12:15:44 +0200
Subject: kill debug printout

---
 site.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index 600589d..c756cf6 100644
--- a/site.hs
+++ b/site.hs
@@ -131,8 +131,7 @@ rootUrl fp = (</> unAbsolute fp) <$> use urlBase
 
 -- | Process a single link pointing out from a page.
 processLink :: FilePath -> FilePath -> Site String
-processLink base l = do
-  io $ putStrLn l
+processLink base l =
   if any (l `hasUriScheme`) ["http", "https", "ftp", "mailto"]
     then pure l
     else if isAbsolute l
-- 
cgit v1.2.3