kill debug printout

1 files changed, 1 insertions, 2 deletions

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