From 9b0079e2f9d8f51522d31c50811d8b5aca7cdd66 Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Thu, 2 Apr 2026 20:56:00 +0100 Subject: [PATCH] xftp: remove page --- apps/common/Web/static/index.html | 4 ++-- apps/xftp-server/XFTPWeb.hs | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/apps/common/Web/static/index.html b/apps/common/Web/static/index.html index 10caed33a7..a5b42313ad 100644 --- a/apps/common/Web/static/index.html +++ b/apps/common/Web/static/index.html @@ -105,13 +105,13 @@ class="text-[16px] leading-[26px] tracking-[0.01em] nav-link-text text-black dark:text-white before:bg-black dark:before:bg-white">Server information - + Donate diff --git a/apps/xftp-server/XFTPWeb.hs b/apps/xftp-server/XFTPWeb.hs index a3edb41f0e..d0b450ece8 100644 --- a/apps/xftp-server/XFTPWeb.hs +++ b/apps/xftp-server/XFTPWeb.hs @@ -31,8 +31,8 @@ xftpWebContent = $(embedDir "apps/xftp-server/static/xftp-web-bundle/") xftpMediaContent :: [(FilePath, ByteString)] xftpMediaContent = $(embedDir "apps/xftp-server/static/media/") -xftpFilePageHtml :: ByteString -xftpFilePageHtml = $(embedFile "apps/xftp-server/static/file.html") +-- xftpFilePageHtml :: ByteString +-- xftpFilePageHtml = $(embedFile "apps/xftp-server/static/file.html") xftpGenerateSite :: XFTPServerConfig -> Maybe ServerPublicInfo -> Maybe TransportHost -> FilePath -> IO () xftpGenerateSite cfg info onionHost path = do @@ -44,7 +44,7 @@ xftpGenerateSite cfg info onionHost path = do filePage xftpDir xftpWebContent filePage mediaDir xftpMediaContent createDirectoryIfMissing True fileDir - B.writeFile (fileDir "index.html") $ render xftpFilePageHtml substs + -- B.writeFile (fileDir "index.html") $ render xftpFilePageHtml substs where filePage dir content_ = do createDirectoryIfMissing True dir